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ABSTRACT 

This  report  gives  the  operator  of  the  Hewlett-Packard 
(HP-41)  handheld  calculator  the  ability  to  quickly  and  accu- 
rately determine  the  power  requirements  of  a  helicopter  in 
the  preliminary  design  phase.   These  power  requirements  are 
computed  for  three  landing  gear  configurations:   skid,  fixed 
wheel,  and  retractable  wheel.   By  comparing  the  power  required 
for  each  configuration,  the  user  can  determine  the  optimum 
landing  gear  for  the  design. 
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I.   INTRODUCTION 

A.  BACKGROUND 

The  design  process  for  any  aircraft  is  a  tedious,  often 
repetitive  procedure,  and  for  a  Helicopter,  all  complexities 
are  compounded.   In  order  to  facilitate  the  design  process, 
computer  programs  have  been  derived  that  will  replace  long 
calculations  with  a  speedy  solution  to  many  of  the  problems . 
These  programs,  however,  are  generally  quite  lengthy  and  are 
not  amenable  to  an  educational  conceptual  design  project,  or 
to  'quick  looks'  at  proposed  decisions. 

Two  aids  to  the  determination  of  helicopter  performance 
and/or  helicopter  design  have  been  developed  in  the  Depart- 
ment of  Aeronautics  at  the  Naval  Postgraduate  School.   These 
are  the  series  of  programs  for  the  HP-41  handheld  computer 
[Ref.  1]  and  the  Helicopter  Conceptual  Design  Manual  [Ref.  2] 
which  uses  these  programs. 

None  of  these  programs  relate   to  the  landing  gear  of  the 
helicopter,  even  though  such  programs  are  necessary  in  order 
to  determine  the  most  advantageous  landing  gear  configuration 
for  a  particular  design. 

B .  GOALS 

The  initial  goal  of  this  project  was  to  develop  a  series 
of  programs  for  the  handheld  HP-41  computer  which  would 
enable  the  student  to  determine  which  landing  gear  configura- 
tion best  complements  his  design.   In  the  course  of 
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accomplishing  this  goal,  it  became  apparent  that  numerous 
additional  programs,  written  from  the  Helicopter  Design 
Manual,  would  be  required.   A  second  goal  was  therefore 
established;  to  program  the  design  course  in  such  a  way  that 
the  student  could  accomplish  his  required  tasks  without  the 
mundane  iterative  calculations   required  in  a  design  proce- 
dure.  If  hand  calculations  were  required,  instructors 
could  rapidly  check  the  student's  work  with  these  programs. 

Mr.  Ronald  Shinn,  from  the  Advanced  Systems  Branch,  Army 
Aviation  Research  and  Development  Command,  provided  an  addi- 
tional goal.   Inasmuch  as  a  definite  need  exists  for  the 
design  engineer  to  be  able  to  quickly  and  inexpensively 
derive  a  design  that  is  fairly  accurate  in  the  preliminary 
design  phase,  a  third  goal  was  established;  to  obtain  an 
output  from  the  programs  which  is,  on  average,  within  ten 
percent  of  the  Advanced  Systems  Branch  large  scale  computer 
program  output. 

A  final  goal  was  to  design  the  programs  in  such  a  way  as 
to  eliminate  the  necessity  for  the  student  or  design  engineer 
to  refer  to  charts  and  graphs  for  the  necessary  input  infor- 
mation.  Thus,  the  programs  are  designed  to  be  "self-contained." 


II.   APPROACH  TO  THE  PROBLEM 

A.  BASIC  LINE  OF  APPROACH 

A  series  of  programs  were  written  for  the  HP-41,  which 
would  output  the  horsepower  required  at  various  airspeeds 
and  altitudes  for  a  helicopter  with  skid,  fixed  wheel,  or 
retractable  type  landing  gear.   From  these  power  outputs,  a 
graph  can  be  plotted  which  will  indicate  the  crossover  point, 
i.e.,  where  the  retractable  gear,  with  its  additional  weight 
and  reduced  drag,  will  require  less  power  than  the  skid  or 
fixed  wheel  configured  aircraft.   Thus,  depending  en  the 
average  environment  of  the  helicopter  in  question,  a  deter- 
mination can  be  made  as  to  which  type  of  landing  gear  would 
contribute  the  most  to  the  design. 

B.  DETAILED  LINE  OF  APPROACH 

As  stated  in  section  IB,  one  goal  of  this  project  was  to 
eliminate,  as  much  as  possible,  the  use  of  graphs  and  charts 
to  provide  the  necessary  inputs  when  utilizing  the  programs . 
With  this  objective  in  mind,  Chapters  Two  and  Three  of  the 
Helicopter  Design  Manual  were  programmed.   The  Chapter  Two 
program,  entitled  MR  (Main  Rotor) ,  does  not  deviate  from  the 
design  manual.   By  inputting  the  specification  weight,  rotor 
radius,  critical  Mach  number,  and  maximum  forward  velocity, 
the  program  displays  the  maximum  rotor  tip  velocity,  disk 
loading,  rotational  velocity,  coefficient  of  thrust,  solidity 
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chord  length,  aspect  ratio,  and  coefficient  of  lift.   The  user 
is  then  prompted  as  to  whether  the  value  inputted  for  Rotor 
Radius,  R,  is  satisfactory  (i.e.,  are  the  displayed  values 
within  prescribed  limits?    A  reduction  in  rotor  radius  will 
increase  disk  loading,  decrease  aspect  ratio,  and  increase 
rotational  velocity.)   If  a  new  value  for  R  is  not  needed,  the 
Chapter  Three  program,  entitled  PHV,  (Power  to  Hover) ,  is 
executed.   This  program  computes  the  power  to  hover  out  of 
and  in  ground  effect.   The  subroutine  "FM,"  (Figure  of  Merit), 
is  then  executed  from  the  PHV  program.   If  the  Figure  of  Merit 
is  within  limits  (.7  to  .8),  the  subroutine  "WT,"  (Weight),  is 
executed.   If,  however,  "FM"  is  out  of  limits,  the  program 
prompts  the  user  as  to  whether  the  value  is  high,  in  which 
case  the  subroutine  "CHD, "  (Chord),  is  executed,  or  low 
(subroutine  "RV, "  (Rotational  Velocity),  is  executed). 

The  "WT"  subroutine   (using  sixty  percent  of  the  specifi- 
cation gross  weight  as  a  first  approximation  for  empty  weight) 
computes  a  second  approximation  of  the  empty  weight  using  the 
equations  found  in  the  Weight  Estimating  Relationships  [Ref. 
3].   To  this  empty  weight  are  added  fuel,  useful  load,  and 
landing  gear  weight. 

For  the  first  iteration,  a  skid  gear  weight  is  added  and 
is  used  as  a  case  for  future  landing  gear  computations.   The 
take-off  gross  weight  is  displayed  and  the  user  is  prompted 
as  to  whether  this  weight  is  satisfactory  (i.e.,  if  enough 
allowance  is  made  for  the  additional  weight  of  the  fixed  and 
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retractable  type  landing  gears ,    keeping  in  mind  the  maximum 
allowable  gross  weight  specified  for  the  design) .   If  the 
weight  is  not  satisfactory,  the  WT  program  uses  the  second 
approximation  of  empty  weight  as  a  base  and  re-computes  the 
take-off  gross  weight  as  before.   If  this  value  is  satisfac- 
tory, the  MR,  PHV,  and  associated  subroutines  are  re-executed 
using  this  new  gross  weight  approximation.   If  all  displayed 
values  are  still  within  specifications,  the  program  prompts 
the  user  to  clear  certain  programs  from  computer  memory  and 
to  input  other  programs.   This  must  be  done  due  to  the  limited 
number  of  storage  registers  available  in  the  HP-41.   The 
inputted  programs  are  PTOT,  PCOMP ,  and  ESHP;  (Power  Total, 
Compressibility   Power,  and  Equivalent  Shaft  Horsepower, 
respectively) . 

Three  PTOT  programs  have  been  written.   One  is  designed 
specifically  for  use  with  the  HP  82143A  printer.   The  output 
is  automatic  and  consists  of  a  velocity  and  the  equivalent 
shaft  horsepower  required  at  that  speed.   A  second  program 
outputs  only  the  ESHP  required  for  an  inputted  velocity  (no 
printer  required) .   The  third  program  may  be  used  with  or 
without  the  printer  and  displays  all  of  the  individual  powers 
that  comprise  the  ESHP  for  a  specified  velocity. 

The  subroutines  EFPA,  PCOMP,  and  ESHP  are  used  in  the 
main  program  PTOT.   EFPA  computes  the  effective  flat  plate 
area  of  the  design  helicopter.   This  value  is  determined  from 
the  aircraft  gross  weight,  its  landing  gear  configuration  and 
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whether  the  aircraft,  in  the  opinion  of  the  user,  has  clean 
or  dirty  lines.   PCOMP  computes  the  additional  horsepower 
required  due  to  compressibility  effects  while  ESHP  computes 
the  extra  power  needed  due  to  accessories,  transmission 
losses,  and  losses  due  to  multiple  engine  installation. 

Once  PTOT  has  been  executed  and  the  data  recorded,  the 
user  re-executes  the  WT  program.   Since  the  skid  landing  gear 
is  to  be  used  as  a  base  for  determining  the  weight  of  the 
fixed  and  retractable  gear,  the  program  automatically  bypasses 
the  component  weight  calculations,  thereby  allowing  the 
identical  empty  weight  to  be  used.   The  user  inputs  the  same 
values  for  fuel  and  useful  load  weight.   Following  the 
calculator  prompts,  the  user  inputs  fixed  gear  information. 
The  new  take-off  gross  weight  is  computed  and  the  program 
transfers  to  PTOT.   The  reader  will  recall  that  during  the 
first  iteration  of  the  WT  program   (using  skid  gear  informa- 
tion) ,  the  MR  program  was  re-executed  to  insure  that  the  newly 
computed  value  of  gross  weight  did  not  result  in  specification 
violations.   The  additional  weight  of  the  fixed  and  retract- 
able landing  gear  results  in  less  than  a  four  percent 
increase  in  the  total  gross  weight  of  the  aircraft.   It  is 
therefore  not  necessary  to  again  check  the  MR  values,  for 
this  small  increase  in  gross  weight  will  not  result  in  speci- 
fication violations.   After  obtaining  the  power  outputs  with 
the  fixed  landing  gear,  re-execute  the  WT  program,  inputting 
retractable  landing  gear  data.   Once  the  three  data  sets  have 
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been  computed,  it  is  a  simple  matter  to  compare  these  lists 
to  determine  the  crossover  points. 

For  a  graphical  display  of  the  crossover  points,  two 
programs  have  been  developed:   MYPLOT  and  POWERPLO  [Ref .  4] 
These  programs  are  compatible  with  the  TEXTRONICS/DISSPLA 
package. 


14 


III.   RESULTS  AND  CONCLUSIONS 

This  series  of  programs  allows  the  user  to  quickly  and 
accurately  determine  the  power  required  of  a  helicopter  at 
any  speed,  and  at  any  altitude.   The  user  is  able  to  deter- 
mine the  most  advantageous  landing  gear  configuration  for 
his  design  depending  on  the  projected  mission  environment 
of  the  aircraft. 

In  an  attempt  to  display  the  accuracy  of  these  programs, 
three  sample  problems  are  solved  in  Appendix  B.   The  first 
is  a  step-by-step  cargo  helicopter  design  problem.   The 
second  is  an  attempt  to  design  a  current  production  heli- 
copter, the  Hughes  AAH-64,  and  compare  the  actual  power 
outputs  with  the  HP-41  program  outputs.   The  third  problem 
compares  the  Army  Aviation  Research  and  Development  Command's 
Advanced  System's  computer  power  outputs  with  that  of  the 
HP-41  program  outputs  given  the  identical  input  data. 

Though  accurate,  inexpensive,  and  rapidly  executed,  it 
must  be  emphasized  that  these  programs  represent  only  the 
"back  of  the  envelope"  phase  of  preliminary  design.   Further 
detailed  analysis  currently  requires  the  use  of  expensive 
main  frame  computers. 
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APPENDIX  A 
HP-41  COMPUTER  PROGRAM 

MAIN  ROTOR  (MR) 

1 .  PURPOSE 

This  program  represents  the  Second  Chapter  in  the  Heli- 
copter Design  Manual.   It  computes  the  disk  loading  (DL) , 
rotational  velocity  (RV) ,  coefficient  of  thrust  (CT) , 
solidity  (SD) ,  chord  length  (c) ,  aspect  ratio  (AR) ,  coeffici- 
ent of  lift  (CL) ,  and  the  maximum  rotor  blade  tip  velocity 
V(TIP)  given  the  following  inputs: 

A)  Specification  Weight  (Spec  Wt) :   the  absolute  maximum 
gross  weight  allowable. 

B)  Main  Rotor  Radius  (R) :   this  is  an  educated  guess. 
Start  by  using  the  design  maximum  radius  allowed. 

C)  Critical  Mach  Number  (Mch  Crit) :   to  prevent  the  rotor 
blade  from  encountering  undesirable  compressibility  effects, 
use  the  historically  acceptable  value  of  .65. 

D)  Maximum  Forward  Velocity  (VF  Max):   input  the  design's 
maximum  forward  velocity. 

Throughout  all  of  these  programs,  when  prompted  for  a  Yes 
or  No  answer,  the  user  should  input  a  1  for  Yes,  and  a  0  for 
No. 

2 .  EQUATIONS 

DL= (GW) / ( (PI) *R**2)   where  the  first  approximation 

of  GW  =  (Spec  Wt)  *  .8 
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VT(max)ssl  =  (Mch  Crit)  *  (a)   where  a  = 

Sqrt (Gamma  *  g  *  R  *  T) 

RV=VT(Max)/(R) 

CT=(GW)/(A  *  RHO  *  VT(Max)**2) 

SD=(CT/(BL) 

where  BL= ((-. 16667) * (VF  Max/. 5  924  8) /VT  Max)  +  .15515 

Note:   The  blade  loading  calculation  is  derived  from  a  chart 
of  blade  loading  vs.  advanced  ratio.   The  chart  is  linear 
for  an  advanced  ratio  (VF  Max)/(VT  Max)  of  >  .35.   The 
equation  for  a  straight  line  (y=mx+b)   was  therefore  used 
for  this  approximation. 


PI 


R)/b 


c=  (SD   * 

AR=(R)/c 

CL=  (6   *   CT)/SD 

where: 

DL  »  disk  loading 

R  =  radius  of  the  main  rotor 

RV  =  rotational  velocity 
RHO  =  density  altitude 
BL  =  blade  loading 
c  =  chord  (main  rotor) 
CL  =  coefficient  of  lift 


GW  =  gross  weight 

VT(Max)  =  blade  maximum 
tip  velocity 

CT  =  coefficient  of  thrust 

SD  =  solidity 

b      =   no.    of  main   rotor   blades 

AR  =    aspect   ratio 

A    =     Area  of  main  rotor 
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3.  FLOWCHART  (MR) 


tnput. 

spec  wt 

(R39) 


Z± 


tnput. 
radtus 
(R)  R05 


compute 
OL  (R31) 


Crtt  Mach 
(R03) 


sf  00 


compute 

VT  max 

(R13) 


FLOWCHART  (MR)  (CONT) 


compute 
RV  CR08) 


compute 
Ct  (R14) 


tnput. 
VFmax 
(R23) 


compute 
SD  (R19) 


compute  c 
(R04) 


compute 
AR  (R32) 


compute 
CI  (R33) 
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FLOWCHART  (MR)  (CONT) 


Rcl  6  display 

D»    nu    ^»*    rr\ 
i_  t  n»f  v «.  *  jiv 

c,  AR,  CI 


YES 


execute 

"PHV" 


execute 

"FMn 


STOP 
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4.   EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS 

A  helicopter  is  to  be  designed  with  the  following 
specifications : 
VF(Max)  -  160  kts 
(Spec  Wt)  =  18000  lbs 
Maximum  Rotor  Diameter  =  5  8  ft 

AR  must  be  between  15  and  25  and  DL  must  be  less  than  7.5 
Compute  DL,  RV,  CT,  SD,  c,  AR,  and  CL. 
Input  the  MR  (Main  Rotor)  program  and  clear  all  flags. 


KEYSTROKES 

XEQ  (alpha)  SIZE  (alpha! 


06  8  XEQ 

(alpha)  MR  (alpha) 

18000 

(r/s) 

29 

(r/s) 

0.65 

(r/s) 

(r/s) 

160 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

0 

(r/s) 

DISPLAY 

SIZE. . . 

Spec  Wt=? 

R=? 

Mch  Crit=? 

VT  MX=725.63 

VF  MX=? 

DL=5.45 

RV=25.02 

CT=.004 

SD=.04  7 

c=  1 . 0  6  5 

AR=27.23 

CL= .559 

R  ok? 
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If  these  values  are  not  within  specifications,  push  (r/s) 
and  input  a  new  value  of  R.   Since  flag  00  is  now  set,  the 
program  automatically  goes  to  R=?    Because  AR  is  rather  high, 
input  a  new  value  of  2  7  feet  for  R.   Proceeding  as  before,  the 
following  data  is  displayed. 

KEYSTROKES  DISPLAY 

(r/s)  DL=6.2  8 

(r/s)  RV=26.87 

(r/s)  CT=.005 

(r/s)  SD=.054 

(r/s)  c=1.144 

(r/s)  AR=23.6 

(r/s)  CL=.559 

(r/s)  R  ok? 

1  (r/s) 

By  decreasing  the  rotor  radius,  the  aspect  ratio  was 
decreased  while  disk  loading  was  increased.   Both  values  are 
now  within  the  specifications.   Because  1  was  inputted  for 
the  prompt  (R  ok?) ,  the  program  automatically  advances  to  the 
PHV  program. 
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PROGRAM  LISTINGS 


81+LBl  "HP" 

92  FS?  55 

93  CF  21 

94  FIX  3 

95  F$?  99 

96  QTO  "SB* 

9?  -spec  yi=- 

gg  PPGHPT 

19  ,8 
li  * 

12  STO  36 

13*L3L  °BB" 

14  ,99237698 

15  ENTERt 
« c   crn  i  i 

17  "P=":° 

18  PRGHPT 

19  SIR  95 

21  PI 

22  *  » 

97  $Th  1? 

24  RCL 

OC  V.-'W 


-,*■ 


CO     •' 

27  STO  31 

28  "tfCH  CRIT- 

vq  PpQfipT 

■.;v  •.•  !  U  '-■•. 

32  EHTERf 

33  481.3 

34  * 

35  SORT 

36  * 

37  ,3948 

38  / 

39  STO  13 
48  'VT  HX=" 

41  ARCL  X 

42  PVIEy 

43  STOP 

44  RCL  13 

45  RCl  95 


46 

/ 

4? 

STO  83 

48 

SF  89 

49 

RCL  12 

59 

RCL  11 

51 

$ 

52 

RCL  13 

53 

r  j 

i 

cc 

RCL  36 

56 

v/  \w 

C7 

/ 

53 

STC  14 

59 

»yp  HK: 

69 

PROflPT 

61 

. 59248 

62 

/ 

67 

STO  23 

64 

RCL  13 

65 

66 

,  16666' 

67 

CHS 

h'A 

* 

69 

=15515 

78 

+ 

71 

RCL  14 

70 

5rJ<>¥ 

73 

74 

STO  18 

7C 

ni 

RCL  K 


78  * 


STO  94 
RCL  85 


R4  / 


85 

CTf)  75 

36 

RCL  14 

07 

6 

Hfi 

* 

39 

RCL  19 

98 

91  STO  33 
92*LBL  *flfl" 

93  RCL  31 

*4  -DL=* 

q5  QRCL  ^ 

96  ayIEy 

97  STOP 

98  RCL  98 
98  "RV=" 

199  hRCL  '< 

191  5VIEH 

192  STO? 
183  RCL  H 
|g4  "CT=" 

195  3RCL  X 

196  PVJEM 
10?  STOP 

198  RCL  19 

199  "SB=" 
118  PRCL  X 

111  QVIE* 

112  STOP 

113  RCL  94 

114  "r — ' 

115  PRCL  'i 

116  QVIE* 

117  STOp 

118  RCL  32 
118  "flR=" 

128  "RCL  X 

121  PVIEM 

122  STOP 

123  RCL  33 

124  -CL=" 

125  uRCl  X 

126  RVIEH 

127  STOP 

129  PROHPT 

138  X>8? 

131  XE9  "PHV* 

132  STO  *BB" 

133  EHTJ 
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POWER   TO    HOVER     (PHV) 

1.  PURPOSE 

This  program  computes  the  power  required  to  hover  in  and 
out  of  ground  effect  at  SSL.   This  program  is  to  be  run 
following  satisfactory  completion  of  the  MR  program.   A  sub- 
routine entitled  "EM"  is  used  to  calculate  the  Figure  of 
Merit  for  the  aircraft.   If  the  Figure  of  Merit  does  not 
fall  within  prescribed  limits,  the  subroutine  chord  (CHD) ,  or 
rotational  velocity  (RV) ,  will  automatically  be  executed. 

The  following  are  required  inputs  for  PHV. 

A)  Number  of  main  rotor  blades. 

B)  Coefficient  of  drag  of  the  main  rotor,  (Cdo) . 

C)  Height  of  the  main  rotor  above  the  ground,   (H) . 

2.  EQUATIONS 

B(MR)=l-[(2   *  CT(MR))**.5/b(MR)  ] 

Pi(MR)  =  (l/B)  *  [(GW)**1.5/(2  *  RHO  *  A)**. 5] 

Po(MR)=( (SD) * (Cdo) *(RHO) * (A) * (VT) **3)/4400 

Pt=(OGE)  =Pi  +  Po 

P/P(OGE)=-0.1276*(H/(2*R) **4) + . 70  80* (H/ (2*R) **3) 

-1.456  9*(H/(2*R)  **2) +1 .3.432*  (H/2*R)  )  +  .5147 
Pt(IGE)=Po(MR)  +  P/P(OGE)  +  Pi (MR) 
where : 

B  is  the  tip  loss  factor. 
A  is  the  area  of  the  main  rotor  disk. 
Pi  is  the  induced  power  (with  tip  loss) . 
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Cdo  is  the  coefficient  of  drag  for  the  main  rotor  (at  zero 
lift) . 

Po  is  the  profile  power. 

Pt(OGE)  is  the  total  power  to  hover  out  of  ground  effect. 

Pt(IGE)  is  the  total  power  to  hover  in  ground  effect. 
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3 .  FLOWCHART 


start 


#  M  ROTOR 
BLD5  (R06) 


I 


COMPUTE  B 
(R15) 


COMPUTE 

Pt(OGE) 

(R16) 


INPUT  Cdo 
MR  (R07) 


COMPUTE 
Po  (R21) 


COMPUTE 

Pt(OGE) 

(R30) 


I 


INPUT  H 


COMPUTE 

Pt(IGE) 

(R38) 


26 


FLOWCHART  (CONT) 


YES 


STOP 


COMPUTE 

Pt(IGE) 

(R34) 

I 


EXECUTE 
"FM" 


NO 


YES 


EXECUTE 
"CHDn 


EXECUTE 
*RV" 


GTO  LBL  AA  "MR" 
DISPLAY  DL...etc, 


EXECUTE 
"PHV* 
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4.   EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS: 

Following  a  satisfactory  run  of  "MR,"  determine  the 
power  to  hover  out  of  and  in  ground  effect  and  the  Figure  of 
Merit  for  the  helicopter. 

Specifications : 

Number  of  main  rotor  blades  =  4 

Coefficient  of  Drag  (Cdo)  of  the  main  rotor  =  .01 

Height  of  the  main  rotor  above  the  ground  =  14.4  ft 

KEYSTROKES  DISPLAY 

NO.  MR  BLDS=? 
Cdo  MR=? 
Pth  OGE=12  32 
H=? 

Pth  IGE=1019 
FIG  MER=0.74 
FM  ok? 
WE=1080 


(XEQ) 

(alpha)    PHV    (alpha) 

4 

(r/s) 

0.01 

(r/s) 

(r/s) 

14.4 

(r/s) 

(r/s) 

(r/s) 

1 

(r/s) 
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PROGRAM   LISTINGS 


91*1.81  mPWi' 

93*L8L  °TL° 

34  RCL  14 
85  ? 


§7  S8R1 

93  "■hO.MR  BL 
99  ppnsPT 
18  sin  «h 


J2  CHS 


14 

+ 

15 

STO 

15 

**LBl 

=  0T 

i  -; 

Di"i 

i  i 

i  '' 

^  L-s_ 

i  - 

1  H 

p.-| 

i  £ 

19 

3 

28 

p 

21 

£ 

?■? 

SppT 

07 

RCL 

36 

ENTE 

Rt 

•T'P 

',  * 

26 

y+v 

07 

Op 

i  /y 

?9 

RCi 

i  c 

:-i  33*3 

34*LBL  =P0" 

■jc;  ;.-■;   1  7 


36  3 

3?  Y*v 

38  RCL  12 

39  * 

48  RCL  11 

41  * 

42  "CdO  HP: 

43  PROMPT 


46  RCL  19 

47  * 

4fi  44gg 

49  / 

58  STO  21 

5i*L8L  «p? 

52  RCL  21 
*3  RCL  ih 

w  QTfi  -.a 


56 

"PTH  OGE=° 

C7 

QRCL  x 

PO 

QVJEH 

^'3 

ojfjp 

69*LBL  npT  IGE 

h  ) 

"«:?■ 

£0 

PROHPT 

63 

STO  89 

64 

*! 

re 

66 

RCL  85 

67 

68 

STO  17 

69 

4 

79 

y*y 

72  * 

73  CHS 

74  i?r|_  j  7 

7C  7 

?6  VfK 

77  ,7888 

78  a 

7Q 

88  RCL  !? 
81  8 

32  ?*? 

33  1,4569 

34  * 

0:c  _ 

36  RCL  17 

37  1-3432 
88  * 

39  * 
%   ,5147 

91  * 

92  RCL  16 

93  % 

94  gin  38 

95  RCL  21 
%   + 

97  STO  34 

n  °pth  ige= 

89  QRCL  8 
198  avipy 
191  STOP 
182  XEO  "PHu 
193  EHTj 
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WEIGHT  (WT) 

1.   PURPOSE 

This  program  uses  an  iterative  procedure  to  compute  a 
more  accurate  estimate  of  the  empty  weight  and  total  gross 
weight  of  the  helicopter. 

The  program  makes  a  "1st  cut"  estimate  of  the  empty 
weight  (WE)  by  multiplying  the  specification  weight  by  .6. 
This  WE  is  then  used  to  compute  the  weight  of  the  blades,  hub, 
fuselage,  controls,  electrical  and  fixed  equipment.   The 
weight  of  the  propulsion  system  is  estimated  by  recalling  R30 
(Pth(OGE))  and  multiplying  by  1.2.   These  values  are  then 
added  together  and  represent  the  second  empty  weight  estimate 
(WE2) .   To  estimate  the  total  gross  weight,  fuel,  useful  load, 
and  landing  gear  weight  are  added  to  the  empty  weight  figure. 
Three  types  of  landing  gear  are  considered;   skid,  fixed 
wheel,  and  retractable  wheel.   A  common  practice  among  air- 
craft designers  is  to  add  two  pounds  to  the  gross  weight  of 
the  aircraft  for  every  additional  pound  added  as  a  result:  of 
heavier  equipment  being  installed.   This  is  due  to  the  fact 
that  one  additional  pound  requires  more  power  which  results 
in  more  fuel  usage.   In  this  case,  the  skid  is  lighter  than 
the  fixed  wheel  gear  which,  in  turn,  is  lighter  than  the 
retractable  gear. 

This  gross  weight  estimate  is  calculated  as  follows: 
the  skid  gear  weight  is  calculated  and  is  used  as  a  reference 
point.   This  weight  is  subtracted  from  the  fixed  wheel  gear 
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weight.   An  identical  procedure  occurs  for  the  retractable 
gear.   In  this  manner,  every  extra  pound  due  to  the  addition 
of  a  heavier  landing  gear  results  in  two  extra  pounds  being 
added  to  the  gross  weight  of  the  aircraft. 

The  formulas  for  computing  the  landing  gear  weight  use 
the  specification  weight  (absolute  maximum  weight  allowed) . 
If  the  user  desires  to  incorporate  a  "buffer"  to  insure  a 
satisfactory  performance  of  the  landing  gear  during  a  hard 
landing,  this  weight  should  be  increased  by  a  suitable 
percentage . 

2 .   EQUATIONS 

Wb=(.06) *(WE) *(R**.4) *(SD) **.33 

Wh=(.0135) *(WE) * (R**.42) 

Wp=(0.21) *Pth(OGE) 

Wf=(0.21) *(WE) 

Wc=(0.06) * (WE) 

We=(0.06) * (WE) 

Wq=(0.28)  *  (WE) 

Weight   of    the    skid   gear= (. 0245* (Spec   Wt)**.8606) 

*(FL) **.8046 

Weight  of  fixed  and  retractable  landing  gear=40.0* 

(WMTO) **.6662  *  (NW)**.536 
*(IRLG) **.1198 

where : 

Wb  is  the  total  weight  of  the  blades. 

Wh  is  the  weight  of  the  hub. 

Wp  is  the  weight  of  the  propulsion  system. 
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Wf  is  the  weight  of  the  fuselage. 

Wc  is  the  weight  of  the  flight  controls. 

We  is  the  weight  of  the  aircraft's  electrical  equipment. 

Wq  is  the  weight  of  the  installed  fixed  equipment. 

WE2  is  the  empty  weight  (the  sum  of  the  above) . 

R  is  the  main  rotor  radius. 

SD  is  the  main  rotor  solidity. 

Pth(OGE)  is  the  power  to  hover  out  of  ground  effect 
(recalled  from  R30) . 

FL  is  a  coefficient.  If  the  main  rotor  has  two  blades, 
the  program  uses  a  value  of  2 .  If  more  than 
2,  FL=4. 

WMTO  is  the  specification  weight  divided  by  one  thousand. 

NW  is  the  number  of  landing  gears. 

IRLG  is  the  retractable  gear  flag  (l=fixed, 2=retractable) . 

Mr.  Ronald  Shinn  developed  the  equation  for  skid  gear 
weight.   Most  designers  use  2%  of  GW  to  determine  skid 
weight.   In  an  effort  to  achieve  a  more  accurate  equation, 
he  used  a  multiple  regression  routine  to  arrive  at  his 
equation.   This  formula  has  an  11%  error  when  compared 
against  the  skid  weight  of  eight  operational  helicopters. 
The  equation  used  to  determine  the  fixed  and  retractable 
landing  gear  weights  had  an  8.5%  error  when  compared  with 
29  operational  aircraft. 
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3.  FLOWCHART 


START 


MAKE  EST. 

Of  EMPTY 

WT 


YES 

<^FS ?  03\ 
<^FS ?  Ql>> 

YES 

_J 

i 

RCL  ( 

NEW  V 

R35) 
fE(2) 

DISPLAY 
WE  (R35) 

i 

1 

! 

i 

COMPUTE 
Wb  (R36) 

_y 

COMPUTE 
Wh  (ST+36) 

* 

COMPUTE 
Wp  ST+36 

I 

COMPUTE 
Wf  ST+36 

33 


FLOWCHART  (CONT) 


YES 


STO 

CONTENTS 

R35  In  R36 


© 


COMPUTE 
WC  ST+36 


COMPUTE 
We  ST+36 


I 


COMPUTE 
Wq  ST+36 


I 


RCL  36 

(WE)  STO 

35 


RCL  35 


<^fs?  03\ 


NO 


INPUT 

FUEL  WT 

ST+36 


INPUT 

USEFUL  LD 

WT  ST+36 


6 


34 


FLOWCHART  (CONT) 


YES 


r 


YES 


YES 


COMPUTE 

SKID  WT 

(R65)  FL=4 


© 


PROMPT 
*SKID?W 


PROMPT 

"NO.  of 

LG?W 


T 


COMPUTE 

WT  of  FIX 

GEAR 

I 


PROMPT 
"FX  GR?" 


X>0? 


PROMPT 
"MR>2 
BLDS?" 


X>0? 


0 


NO 


NO 


COMPUTE 

SKID  WT 

(R65)  FL=2 


COMPUTE 

RETR  LG 

WT  (R00) 


35 


FLOWCHART  (CONT) 


© 


:OMPUTE  LANDING  GEAR  ADDITION 
TO  GW  USING  SKID  WT  AS  REF 
ADD  TO  R36 


NO 


DISPLAY 

TOTAL  GW 

SF  01 
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4.   EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS 

The  user  will  note  that  at  the  conclusion  of  the  PHV 
example  problem,  the  program  transferred  automatically  to 
the  WT  program  (WE=10800.00  was  displayed).   If  this  value  is 
in  the  calculator  display  window,  disregard  the  initial  key 
stroke  instruction. 


KEYSTROKES 
XEQ   (alpha) 
(r/si 
(r/si 
(r/si 
(r/si 
(r/s 
(r/s 
(r/s 
(r/s 
(r/s; 
4000  (r/s 
3750  (r/s! 
1     (r/s; 
1     (r/s 


WT  (alpha) 


DISPLAY 

WE=10,800 

Wb=9  2  4.0 

Wh=582.01 

Wp=1477.99 

Wf=2268.00 

Wc=648.00 

We=648.00 

Wq=3024.00 

WE  2  =9572.01 

W  FL? 

USE  LD? 

SKID? 

MR>2  BLDS? 

T  GW=17665.30 


At  this  point,  push  the  (r/s)  button.   The  computer  will 
prompt,  "WT  OK?"   If  the  weight  is  far  enough  below  the 
specification  weight  to  allow  room  for  the  added  weight  of 
the  fixed  and  retractable  landing  gear,  input  1  (Yes) .   Input 
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0  (No) ,  otherwise.   If  this  second  option  is  taken,  the 
computer  displays  the  most  recently  computed  value  of  empty 
weight  and  uses  this  as  a  base  for  iteration.   For  this 
example  problem,  perform  an  additional  iteration. 


KEYSTROKES 
(r/s 

0  (r/s 
(r/s 
(r/s 
(r/s 
(r/s 
(r/s 
(r/s 
(r/s 
(r/s 
(r/s 

4000  (r/s 
3750  (r/s 

1  (r/s 
1     (r/s 

(r/s 
1     (r/s 


DISPLAY 

WT  OK? 

WE=9572.01 

Wb=818.94 

Wh=515.83 

Wp=1477.99 

Wf=2010.12 

Wc=574.32 

We=574.32 

Wq=2680.16 

WE  2  =8651.69 

W  FL? 

USE  LD=? 

SKID? 

MB>2  BLDS? 

T  GW=16744.99 

WT  OK? 


The  program  transfers  back  to  the  MR  program.   This  newly 
computed  value  of  gross  weight  is  now  used  to  obtain  the  MR 
output.   The  user  must  again  check  to  insure  all  values  are 
within  prescribed  specifications. 
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5.   PROGRAM  LISTING 


81+LBL  °yT°  58  "HP=" 

§2  CF  95  5!  QRCL  X 

93  FIX  2  52  MV I EM 

94  FS?  55  53  STOP 

95  CF  2!  54  RCL  35 

96  RCL  3?  55  ,2! 

97  ,6  56  * 

98  *  57  ST+  36 
89*LBL  91  58  "HF=" 
18  FS?  93  59  fiRCL  X 

11  QTQ  92  68  PVIEH 

12  FS?  91  61  STOP 
n  pri  7c-  t2  (?p!  35 

14  °kiE="  63  ,96 

15  fiRn  V  64  * 


i  0 

H?iU« 

>  7 

STOP 

18 

STO  35 

19 

RCL  85 

29 

,i 

.^  * 

VfV 

£? 

* 

97 

,86 

24 

i 

25 

RCL  19 

25 

77 

07 

YtX 

23 

i 

29 

STO  36 

39 

"ttb=" 

31 

MRCL  ■'. 

75 

RYIEN 

33 

STOP 

34 

RCL  35 

7c 

,8135 

lb 

* 

77 

RCL  95 

70 

4? 

39 

y*y 

48 

i 

41 

ST+  76 

^il 

-yH=- 

.17 
*0 

flRCL  X 

44 

fiVJEH 

45 

STOP 

46  RC 


4<5 


^*7 

fiRCL  X 

68 

9VIEH 

69 

STOP 

78 

RCL  35 

74 

,86 

71 

i: 

77 

ST+  7h 

7j 

"He=" 

7C 

fiRCL  % 

7£ 

■■  0 

fiVIFU 

77 

STRP 

70 

RCL  35 

79 

,  .l'b 

38 

z 

81 

ST+  36 

00 

■yy=n 

07 

QRCL  X 

84 

QV I EW 

85 

STOP 

86 

RCL  36 

87 

"HE  2=" 

38 

fiRCL  X 

39 

fiVIEH 

98 

STOP 

91 

STO  35 

oo*i  gi  go 

93 

RCL  35 

94 

f'^'   93 

95 

STfl  36 

96 

*y  F|_''° 

97 

PROHPT 

98 

:'T+  7fi 

39 


14?  GTO  99 

H9*LBL  95 
158  4 
15!  entep? 

152  .8946 

153  YtX 

154  PCL  3* 

m  «L  »  t55  .8686' 

197  1899  J56  m 

188  / 


198  P&OHPT 

191  ST+  36 

192  "SKIIP" 

183  PROMPT 

184  X>0? 

185  GTO  84 


189  .666: 
118  V+y 


153  .8245 
?59  * 
ii!  biU  d*  168  STR  65 

113  PROMPT 


1H  :53g 
1 1 K,   y+y 

116  ST*  88 
Ik  4fi 


128  STO  66 


i  0^  v 

126  EHTERt 

1  ?7   1  1  Qfl 


135  *>8? 


147  3TH  65 


162tlBL  87 

163  RCL  66 

164  pr;|_  55 

165  - 

166  2 


118  ST*  88  167  , 

119  RCL  98  jgg  RCL  66 


ISO  + 


121  -FX  GR?"  I78  QTn  aq 

122  PROMPT  -7ULB,  "g 

123  X>8?  17?  pri  mm 

124  GTO  87  i77  pn  65 


174  - 


176  * 

m   vtx  177  PCL  98 

129  ST*  89  170  + 

138  PCL  98  17W.BL  89 

188  ST+  36 

181  RCL  36 

182  °T  G^=" 


132*LBL  94 

133  °MP>2  BLDS"7" 

134  PROMPT  m  mi   y 


184  MVIEW 


136  GTO  95  185  stqp 

^37  2  196  PS?  83 

138  ENTPPt  1J37  ypo   -PTHT- 

139  .8846  138  SF  91 
148  -m  igq  "«T  OK?" 

141  RCL  39  199  prompt 

142  .3696  iqi  v-g? 
^   ytX  m   Qjfj  hi 
i4d  *  197  3F  84 

145  .9245  l94  VFQ^-iJ- 

146  *  iqr 


:nd 
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TOTAL  POWER  (PTOT) 

1.  PURPOSE 

Three  PTOT  programs  were  written.   The  first  program  was 
designed  specifically  for  use  with  the  HP82143A  printer. 
The  printer  outputs  the  velocity  and  corresponding  engine 
shaft  horsepower  required.   The  second  PTOT  program  was 
designed  for  the  user  who  does  not  have  access  to  the  HP 
printer.   This  program  displays  the  engine  shaft  horsepower 
required  at  an  inputted  velocity.   The  third  program  displays, 
for  an  inputted  velocity,  all  of  the  individual  powers 
required,  for  both  main  and  tail  rotors,  the  total  power 
required  and  the  engine  shaft  horsepower  required.   This  pro- 
gram can  be  used  with  or  without  the  printer.   Because  of  the 
detail  involved  with  this  program,  execution  is  much  slower 
than  with  the  other  two  programs. 

2 .  EQUATIONS 

Pp(mr  fwd)=(0.5) *rho*V(fwd) **3*EFPA(ff) 

Vi  (mr  hover)  =  (GW/(2*rho*A)  )  **.5 

Pi(mr  fwd)=GW(-(V(fwd) **2/Vi (hover) **2)/2 
( (V(fwd) **2/ (2*Vi (hover) **2) +1 
**.5) ) **.5  *  Vi (hover) 

Po(mr  hover) = (SIGMA (mr)  *  Cdo(mr)  *  rho  *  A(mr) 
*  V(mr  tip) **3)/4400 

MU(mr)=V(fwd)  /  V(mr  tip) 

Po(mr  fwd)=(l+4.3*MU**2)  *  Po (mr  hover) 

Pt(mr  fwd)=Po(mr  fwd)  +  Pp (mr  fwd)  +  Pi (mr  fwd) 

Mach  Tip(mr)  =  (V(fwd)  +  V(mr  tip))  / 
(gamma  *  g  *  R  *  T)**.5 
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R(tr)=(GW  /  1000)**. 5  *  1.3 

L(tail)=R(tr)  +  R(mr)  +  .5 

Chord (tr)=R(tr)  /  AR(tr) 

T(tr)=Pt(mr  hover  oge)  /  (RV(mr)  *  L(tr) 

A(tr)=R(tr) **2  *  PI 

V(tr  tip)=RV(mr)  *  4.5  *  R(tr) 

CT(tr)=T(tr)  /(A(tr)  *  rho  *  V(tr  tip)**2) 

B(tr)=l-((2  *  CT(tr))**.5  /  b(tr)) 

Pi(tr  tl  hover)=  (1  /  B(tr))  *  (T(tr)**1.5  / 

(2  *  rho  *  A(tr) ) **.5) 

SIGMA (tr)=(b(tr)  *  C(tr))  /  (R(tr)  *  PI) 

Po(tr  hover) = (SIGMA (tr)  *  Cdo(tr)  *  rho  *  A(tr)  * 
V(tr  tip) **3)/4400 

Pt(tr  hover) =Po(tr)  +  Pi(tr  tl) 

MU(tr)=V(fwd)  /  V(tr  tl) 

Po(tr  fwd)=Po(tr  hover)  *  (1  +  4.3  *  MU(tr)**2) 

T(tr  fwd)=Pt(mr  fwd)  /  (RV(mr)  *  L(tr)) 

CT(tr  fwd)=T(tr  fwd)  /  (A(tr)  *  rho  *  V(tr  tip)**2) 

B(tr  fwd)=l-((2  *  CT(tr))**.5  /  b(tr)) 

Vi(tr  hover)  =  (T(tr)  /  (.2  *  rho  *  A(tr))**.5 

Vi(tr  fwd)=  (-(v(fwd)**2  /  2)  +  (V(fwd)**2  /  2)  **2 

*(Pi(fwd)  /  P (hover) **2  *  Vi(tr  hover) **4) ** . 5 

Pi  (tr  fwd)=  (1  /  B(tr))  *  T(tr)  *  Vi(tr  fwd) 

Pt(tr  fwd)=Pi(tr  fwd  tl)  +  Po(tr  fwd) 

Mach  Tip(tr)=  (V(fwd)  +  V(tr  tip))  / 
(gamma  *  g  *  R  *  T) **.5 

where : 

Pp  is  the  parasite  power. 
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EFPA  (ff)  is  the  effective  flat  plate  area  (forward  flight! 

Vi (hover)  is  the  induced  velocity  in  hover. 

Pi (hover)  is  the  induced  power  required  to  hover. 

Po (hover)  is  the  profile  power  required  to  hover. 

SIGMA  is  the  solidity. 

Cdo  is  the  coefficient  of  drag. 

RHO  is  the  density. 

A(mr)  is  the  area  of  the  main  rotor. 

V(mr  tip)  is  the  tip  velocity  of  the  main  rotor. 

R(tr)  is  the  radius  of  the  tail  rotor. 

L(tr)  is  the  length  of  the  helicopter  tail  from  the 
main  rotor  shaft  to  the  tail  rotor. 

T(tr)  is  the  thrust  of  the  tail  rotor. 

CT(tr)  is  the  coefficient  of  thrust  of  the  tail  rotor. 

B(tr)  is  the  tip  loss  (tl)  factor  (tail  rotor). 
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3.  FLOUCHART 

A.  PTOT  (PRINTER) 


/"  START  N 


SET  PRINTER 

ENABLE  FLAG 

(21) 


SF  03 


INPUT 

CONTROL 

NO.  STO  09 


EXECUTE 
RHO 


YES 


INPUT  AR 
TR  STO  01 


INPUT  i 

TR  BLDS 

STO  59 


INPUT  Cdo 
TR  STO  02 


£ 


1 
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PTOT  (PRINTER)  (CONT) 


© 


SET  PRINTER 
DOUBLE  WIDE  FLAG  (12) 


PRINT 
"TOTAL 
POWER* 


CF  12 


RCL  R36 
PRINT  GW 


NO 


£ 


EXECUTE 
"EFPA" 
STO  64 


PROMPT 

"EFPA 

KNOWN?" 


X>0? 


YES 


PROMPT 

»EFPA«=" 

STO  64 


PRINT  VEL 

(KNOTS), 

ESHP 
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PTOT   (PRINTER)    (CONT) 


<^ 

V 

RCL  R09  (CNT  NO) 
BEGIN  00  LOOP 

: 

' 

COMPUTE 
Pp  STO  28 

4 

EXECUTE  VI 

1 

' 

COMPUTE 

PT  (MR  FWD) 

STO  27 

\ 

' 

EXECUTE 

*P0  FD" 

STO  24 

} 

F 

EXECUTE 
nMU* 

1 

SUM 

R24fR27 

STO  22 

" 

«WPUTE  R<TR>,L<TR),CHORO<TR),T<TR)tA<TR).VTIP<TR) 
CT(TR),8<TR).  FOR  HOVER 

d 

) 

46 


PTOT  (PRINTER)  (CONT) 


£ 


COMPUTE 

Pt(TRH) 

5TO  48 


COMPUTE 

PO(TRH) 

STO  49. 


E 


SUM 

R48.R49 

STO  50 


COMPUTE 

Po(TRF) 

STO  52 


IMPUTE  T(TR)  CT(TR)  9(TR; 
FOR  FORWARO  FLIGHT 


COMPUTE 

PKTRF) 

STO  56 


T 


R56+CR22+R 
52)=PT0T 


XEQ   "PCOMP"  AND 

ADD  TO  PTOT. 
STO  R63 
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PTOT  (PRINTER)  (CONT) 


© 

_L 


XEO  WESHP"  STO  63 
PRINT  THE  ESHP  REQUIRED 

AT  THE  SPECIFIED  VELOCITY 


NO 


YES 


EXECUTED 
n9EEP« 


STOP 
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B.  PTOT  (ABBREVIATED) 


CD 


SF  03 


INPUT  FWD 
VEL  STO  25 


EXECUTE 
RHO 


^FS ?  02\ 

YES 

<^ 

' 

AR  TR  STO 
01 

* 

#  TR  BLDS 
STO  39 

A 

Cdo  TR 
STO  02 

* 

SF  02 

■  > 

PROMPT 

"EFPA 

KNOWN?* 

6 

49 


PTOT   (ABBREVIATED)    (CONT) 


NO 


EXECUTE 
"EFPA* 
STO  64 


T 


COMPUTE 
Pp  STO  2S 


EXECUTE 
«VI« 


COMPUTE 

PUMP  F) 

ST027 


XEO  wPO 
FD"  STO  24 


XEQ  *XU» 


SUM 
R24.R27 
STO  R22 


YES 


_L 


PROMPT 

WEFPA»" 

STO  64 


COMPUTE  R(TR)tL(TR),  CHORO(TR), 
T(TR),A(TR),VTIP(TR),CT(TR), 

QfTP\  pr.n  unvFa 
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PTOT  (ABBREVIATED)  (CONT) 


2 


COMPUTE 

PUTR  H) 

ST048 


I 


COMPUTE 

Po(TR  H) 

ST049 


I 


SUM  R48  & 


COMPUTE 

Po(TR  F) 

ST052 


3Z 


IMPUTE  T(TR)  CT(TR) 
(TR)  (FORWARD) 


COMPUTE 

PKTR  F) 

STQ56 


(R22+R52)* 
R56-PT0T 


XEQ  "PCOMP"  AND  ADD  TO 
PTOT  STO  R63 


I 


XEQ  "ESHP" 
DISPLAY  ESHP 


& 
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C,   PTOT   (FULL  DISPLAY) 


C 


START 


ADVANCE  PRINTER 
2  LINES 
IF  ATTACHED 


PROMPT 

"FWD 
VEL-?" 


AR  TR  STO 
01 


#  TR  BLDS 
ST059 


«r-^FS? 

55^ 

YES 

\ 

\ 

NO 

PRINT  FWD 
VEL  VALUE. 

' 

» 

XEQ  RHO 

YES 


52 


PTOT  (FULL  DISPLAY)  (CONT) 


© 


Cdo  TR 
STO02. 


SF  02 


PROMPT 

"EFPA 

KNOWN?' 


COMPUTE 
Pp  ST028 


I 


COMPUTE 
VI  STO20 


COMPUTE 
Pt(MR  F) 


OISPLAY 
Pp  MR 


DISPLAY 
Po(MR  F) 


PROMPT 
•EFPA-" 

ST064. 
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PTOT    (FULL  DISPLAY)    (CONT) 


© 


Po+Pf+Pp= 
Pt(MR  F) 
nTSRl  AY 


:OMPUTE  4  DISPLAY 
MCH  MR 


IMPUTE  R(TR)  L(TR)  CHORD(TR) 
T(TR)  A(TR)  VTIP(TR)  CT(TR) 
Rf, TR!l  FOR  Hfi'v'Ffi 


COMPUTE 

Pf(TR  H) 

ST043 


COMPUTE 

Po(TR  H) 

ST049 


SUM  R48 
AND  49 
STO  50 

i~ 


COMPUTE 

Po(TR  F) 

ST052 


COMPUTE  T(TR)  CT(TR)  3(TR) 
fop  rnpuapn  n  Tr.nT 


c 


COMPUTE 

Pt(TR  F) 

ST056 


COMPUTE 

MCH(TR) 

STO60 
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PTOT   (FULL  OISPLAY)    (CONT) 


© 


RCL  R56  (Pt(TR  F))  OISPLAY 


rci  r^?  CBooa  F.n  mspi  ay 


SUM  R56  4  R52  ST057 
fUSPI  AY  PUTR  F) 


R22+R57=PTCT 
STO  R63 


XEO 

"PCOMP1 

ST+63 


XEO  WESHPW 


PUSH  R/S  FOR  MORE 
FDRWARn  VF1  TNPUTS 


C 


STOP 
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4.    EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS  (PTOT — PRINTER) 
Calculate  the  total  engine  shaft  horsepower  required 
for  the  example  helicopter  from  0  to  160  knots  at  standard 
sea  level  (0  PA,  15  DEG  CEN) .   Increment  the  velocity  every 
20  knots. 

Note:   When  prompted  to  input  the  control  number,  the 
user  should  recall  that  this  number  is  of  the  form  CCC.XXXFF 
The  CCC  describes  the  starting  value.    .XXX  is  the  final 
value,  and  FF  is  the  incremental  spacing.   If  the  starting 
value  is  zero,  the  CCC  need  not  be  entered.   For  this 
example,  input  .16020. 


KEYSTROKES 

XEQ  (ALPHA)   PTOT  (ALPHA) 

0.16020 

(R/S) 

0 

(R/S) 

15 

(R/S) 

8 

(R/S) 

4 

(R/S) 

0.0145 

(R/S) 

0 

(R/S) 

1 

(R/S) 

1 

(R/S) 

(R/S) 

2 

(R/S) 

DISPLAY 
INPUT  CNT  NO 
PA=? 

TEMP  C=? 
AR  TR=? 
NO.  TR  BLS? 
CDO  TR=? 
EFPA  KNOWN? 
CLEAN  LINES? 
SKID? 

EFPA=20.95 
NO.  ENGS=? 
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Note:   This  program  can,  at  this  point,  only  be  executed  using 
skid  data  because  the  gross  weight  computation  used  in  the 
"WT"  program  was  computed  on  the  basis  of  skid  landing  gear. 

Definitions: 

PA  is  the  pressure  altitude. 

TEMP  C  is  the  temperature  in  centigrade, 

AR  TR  is  the  aspect  ratio  of  the  tail  rotor  (historically 
between  4.5  and  8.0). 

NO.  ENGS  is  the  number  of  engines. 
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5 .       PRINTER   OUTPUT 


TOTRL     P 0 W E  R 

-'-HP 


6 

*** 

61 

*** 

28 

*** 

88 

?a± 

48 

±±± 

84 

■£±w. 

*** 


!  %i 

iats: 

88 

i±* 

-:  1  7"7 

*** 

198 

#** 

-.  "ICC 

*** 

128 

**a: 

]  h4? 

is* 

148 

*** 

2849 

**± 

168 

XXX 

~'P7c 

**# 

6.   EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS  (PTOT — ABBREVIATED) 
Note:   Clear  PTOT  (PRINTER)  and  insert  PTOT  (ABBREVIATION) . 
Clear  flags  02  and  05  manually. 


KEYSTROKES 
(SHIFT)    CF  02 
(SHIFT)    CF  05 
XEQ  (ALPHA)  CLP  (ALPHA) 
(ALPHA)  PTOT  (ALPHA) 
AFTER  INPUTTING  PTOT  (ABBREVIATED) 

KEYSTROKES 

XEQ  (ALPHA)  PTOT  (ALPHA) 


0 

(R/S) 

0 

(R/S) 

15 

(R/S) 

8 

(R/S) 

4 

(R/S) 

0.0145 

(R/S) 

1 

(R/S) 

20.95 

(R/S) 

2 

(R/S) 

(R/S) 

20 

(R/S) 

(R/S) 

40 

(R/S) 

(R/S) 

DISPLAY 

0 

0 

CLP__ 


DISPLAY 
FWD  VEL=? 
PA=? 

TEMP  C=? 
AR  TR=? 
NO.  TR  BLS? 
CDO  TR=? 
EFPA  KNOWN? 
EFPA=? 
NO.  ENGS=? 
ESHP=1861.14 
FWD  VEL? 
ESHP=1608.01 
FWD  VEL? 
ESHP=1204.25 
FWD  VEL? 


59 


60 


80 


100 


120 


140 


160 


(R/S) 

(R/S) 
(R/S) 
(R/S) 
(R/S) 
(R/S) 
(R/S) 
(R/S) 
(R/S) 
(R/S) 
(R/S) 


1107.36 

FWD  VEL? 
1173.43 
FWD  VEL? 
ESHP=1356.32 
FWD  VEL? 
1646.68 
FWD  VEL? 
ESHP=2049.57 
FWD  VEL? 
ESHP=2575.93 


Note:  When  prompted  "EFPA  KNOWN?"  a  1  was  inputted  (Yes) 
since  the  EFPA  was  known  from  the  PTOT  (PRINTER)  program. 
This  results  in  a  more  rapid  program  execution. 

7.   EXAMPLE  PROBLEM  AND  CJSER  INSTRUCTIONS  (PTOT-FULL  DISPLAY] 
Note:   Clear  PTOT  (ABBREVIATION)  and  input  PTOT  (FULL 
DISPLAY).    Also  clear  flags  02,  03,  and  05. 


KEYSTROKES 

XEQ     (ALPHA)       PTOT     (ALPHA) 


0 

(R/S) 

0 

(R/S) 

15 

(R/S) 

8 

(R/S) 

4 

(R/S) 

0.0145 

(R/S) 

DISPLAY 
FWD    VEL=? 
PA=? 

TEMP  C=? 
AR  TR=? 
NO.  TR  BLDS? 
CDO  TR=? 
EFPA  KNOWN? 
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1         (R/S)  EFPA=? 

20.95     (R/S) 

For  the  inputted  forward  velocity  of  0  knots,  the  following 
power  values  are  displayed: 

Pi(fwd)=1227.14 

Pp=0.0 

Po(fwd)=296.54 

Pt(fwd)=1523.69 

MCH(mr)=.65 

MCH(tr)=0.58 

Pi(tr    fwd)=85.04 

Po(tr    fwd)=29.51 

Pt(tr    fwd)=114.55 

PTOT=1638.24 

The  user  is  then  prompted  for  the  number  of  engines  (this 
only  occurs  during  the  first  iteration) .   After  inputting  2 
engines,  the  engine  shaft  horsepower  required  at  zero  air- 
speed is  displayed:   1861.14.   After  pushing  the  (r/s)  key, 
the  user  will  be  prompted  for  the  forward  velocity,  pressure 
altitude,  and  temperature.   In  this  way,  power  requirements 
at  any  airspeed  and  altitude  may  be  computed  anytime  during 
the  program  operation.   The  user  may  transcribe  a  table  of 
values  from  the  displayed  output. 
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8.   PRINTER  OUTPUT  (PTOT — FULL  DISPLAY) 

With  the  HP  8214 3A  printer  attached,  the  following  data 
is  outputted  during  the  running  of  the  program  (two  itera- 
tions are  shown) . 


6,98       *** 
P!  PTj=i  ??7  id 

PP=i1t9M 

?0  R)=2%,34 
PT  F3=!523.S9 
MCH  HR=8.65 
HCH  TP=8.58 
?!  TRF=85.84 
PH  TPF=29,51 
pt  TRF=i 14,55 
PTGT=!b3S,24 
ESHP=I361.14 


20,39       *** 
PI  FTJ=!923, 74 
PP=L?4 

PQ  FB=299,39 
PT  FB=i324,7P 
HCH  HR=8,88 

H£H   Tp=8shl 

PT  TPF=5?,5A 

PQ   JPF=2?,8e 

pt  Tpp=g9=42 
PTGT=1414,29 

E?HP=iS68.8t 
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9 .       PROGRAM   LISTINGS 

A.       PTOT     (PRINTER)     LISTING 


91+LBL  "PTOT" 

92  3F  21 

'S3  SF  93 

34  'INPUT  f>T  HO*  q 

95  ppfsHPT 

96  STO  99 

97  FS?  92 

98  GTO  92 

99  XEQ  "RHO" 
10  -fiR  jRs?" 

i i  prompt 

12  STO  91 

13  "NO.TR  3LS?" 
id  PRONPT 

15  STO  59 

16  "CdO  TR=?" 

17  PROMPT 

18  STfi  92 

19  SF  92 
?9*LBL  92 

22  RBV 

23  m 

24  -TOTAL  POMER" 

25  PRfl 

26  W 

27  m 

00    fP    i*y 

29  RCL  36 
39  °GH=" 

31  PRCL  ?, 

32  9VIBI 

34  PROHPT 

35  X'8^ 

36  GTO  82 

37  XEQ  ■EFPfi" 
38*LBL  "DD" 


39  GTO 

93 

49+LBL 

82 

41  "EFPfl=?" 

42  PROMPT 

43  PRP 

44  STO 

64 

45  XEQ 

"PRX" 

46*LBL 

83 

47  Fix 

8 

48  RCL 

99 

4?  3BV 

59  "VEL  <KHOTS 

51  PRP 

po  •ccup* 

53  PRP 

54  PTjV 

55*LBL 

91 

56  RCL 

99 

57  m~ 

58  PRK 

58  ,53248 

68  / 

61  STO 

jw 

62  3 

63  YtX 

64  RCL 

64 

65  RCL 

1 1 

66  * 

67  . 5 

68  * 

69  RCL 

2~! 

79  3 

?!  yfy 

72  * 

73  559 

7  A 

75  STO 

23 

76  GTO 

"PT  FD" 

?7#LBL 

"Pfl  FTj 

78  RCL 

i  7 

79  3 

38  YfY 

81  RCL 

t  rt 

82  * 

07  Dpi 

t  ' 

84  * 

35  RCL 

p.  7 

88  * 

07  Pf'l 

1  3 

S3  ♦ 

39  448P 

! 

98  / 

91  STO 

21 

92  YEQ 

•My 

93  Kt2 

94  4  =  3 

95  * 

96  ! 

97  + 

98  * 

3$  STO 

24 

198  RTM 

181*LBL 

"NU" 

192  RCL 

0C| 

133  RCL 

i  7 

194  / 

195  RTN 

136+LBL 

oilT  o 
;  i 

1.87  ?CL 

36 

188  RCL 

1 1 

189  RCL 

1  "0 

119  * 

til  v 

112  * 

i  1  7  .••• 

114  S8R1 

63 


115 

STO  ; 

28 

1!6*L3L 

■PI  FB" 

1  *  ? 

RCL 

3*5 

1  10 

v*  2 

iig 

RCL 

28 

128 

Xf? 

12! 

1  oo 

£ 

j  27 

/ 

124 

CHS 

!  OP 

RCL 

OP 

126 

tf+9 

1  07 

RCL 

29 

123 

Xt2 

i  0>0, 

£ 

173 

3 

131 

/ 

<  70 

VfO 

133 

1 

134 

+ 

135 

8QRT 

17A 

+ 

i  7"? 

SORf 

!T0 

i-30 

RCL 

28 

139 

z 

140 

RCL 

36 

141 

* 

142 

RCL 

;  c 

143 

/ 

144 

558 

145 

/ 

146 

STO 

07 

147 

RTH 

143+LBL 

*PT  FB 

149 

KEQ 

ailT  u 
1  I 

158 

RCL 

28 

151 

+ 

'  PO 

XEQ 

*P0  FTi 

153  + 

154  STO  22 
155»LBL  "TR" 
156  RCL  36 
15?  1888 

158  / 

159  SSRT 

168  L3 
161  * 

itO  CTfi  40 

163  RCL  95 

164  + 

165  =5 
16b  + 

167  STO  4§ 
163  RCL  42 

169  RCL  91 
178  / 

171  STO  58 

172  RCL  39 
177  ^a 

174  * 

175  RCL  98 

176  RCL  48 

177  * 

178  •' 

1 79  STO  41 

188  RCL  42 
18!  X*2 

too  pT 

133  * 

184  STO  43 

135  4,5 

136  ENTERt 
187  RCL  88 
133  * 

189  RCL  42 
198  * 


191  STO  44 

192  Xt2 

193  RCL  1! 

194  * 

195  RCL  43 

196  * 

197  RCL  41 
19ft  X<>¥ 
199  / 

298  STO  45 
281  2 
292  * 

283  SORT 

284  RCL  59 

295  / 

296  CHS 
287  1 
298  t 

289  STO  47 

218  RCL  41 

211  1.5 
010  y+y 

213  RCL  43 

214  RCL  11 


218  S8RT 

219  1 

228  RCL  47 

00  i 

222  558 

224  S^o  48 

225  RCL  59 

226  RCL  58 

227  * 

228  RCL  42 
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22? 

PI 

238 

* 

231 

232 

STO 

29 

077 

RCL 

44 

C  5  ** 

7 

■57C 

vtx 

236 

RCL 

43 

237 

1 

238 

RCL 

x  i 

239 

* 

248 

RCL 

82 

241 

* 

242 

nr-! 

KUL 

29 

2^3 

* 

244 

4488 

245 

/ 

246 

STH 

49 

247 

RCL 

48 

2*8 

+ 

249 

STO 

58 

258*L8L 

■tjm 

OCi 

RCL 

-.c 

OPO 

RCL 

44 

0^7 

/ 

254 

STO 

51 

255 

m 

4.3 

OP7 

■JL 

258 

( 

?59 

t 

268 

RCL 

49 

2  A  ^ 

* 

262 

STO 

3  4. 

263 

RCL 

00 

264 

RCL 

88 

265 

RCL 

48 

266 

* 

267  / 

268  558 

269  * 

278  STO 

53 

271  RCL 

43 

272  RCL 

1  i 

273  * 

274  RCL 

44 

275  Xt2 

278  * 

277  / 

■-■nn    r-Tf: 
C  !  0  "■ !  'J 

54 

279  2 

288  * 

281  SORT 

000  pf;i_ 

59 

"?!-;7  f 

284  CHS 

OOP  < 

286  + 

287  STO 

cc 

288  RCL 

oc: 

289  X*2 

298+LBL 

■  1 1  r  .'  rn 

T  1  \  i  K 

291  RCL 

C"7 

292  RCL 

11 

293  RCL 

43 

294  * 

295  2 

296  * 

297  / 

298  SORT 

299  STO 

26 

388  Wd 

381  / 

382  2 

383  t 

384  CHS 

j85  RCL  25 
M  Xt2 

?87  RCL  26 
j88  Xt2 

j99  2 

•  18  * 

Mi 

'12  Xt2 


.3 

14 

■+• 

7 

15 

3QRT 

7' 

16 

+ 

7 

1 7 

S6RT 

3: 

18 

RCL  26 

7 

19 

* 

328 

RCL  53 

3??    558 


324  RCL 

cr 

70P  / 

326  STO 

56 

327  RCL 

££ 

328  * 

32?  RCL 

5'": 

338  + 

331  XEO 

■P( 

;ORP 

332  + 

333  STO 

63 

334  XEQ 

°F:: 

;hp" 

335  STO 

63 

336  ?RK 

337  hDV 

338  ISG 

89 

339  QTO 

81 

348  BEEF 

341  STOP 

342  END 
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B.   PTOT  (ABBREVIATED)  LISTING 


81+LBL  "PTOT" 

92  SF  93 
33*LBL  93 
§4  FIX  2 
95  "FHD  VEL?" 
86  PR0HPT 

97  ,59248 

98  / 

99  STO  25 
19  3 

12  F8?  95 

13  GTO  94 

14  W4.   "RHO" 

15  p<p  §2 

16  GTO  94 

17  °qp  Tp=?- 

13  PROHPT 
19  STQ  91 
28  "NO. TR  8LS7" 

21  prhHPT 

22  STQ  59 

23  °CdO  TR=?" 

24  PROMPT 

25  STO  82 

26  3F  92 

27  "EFPa  KHOMH''"        *3  * 

1Q  ppfiMPT  b4  4489 


37 

STO 

64 

3S*LBL 

94 

39 

RCL 

64 

48 

RCL 

i  < 

*4  I 

* 

42 

h 

43 

* 

44 

RCL 

■■\c 

45 

7 

46 

Yt" 

=  7 

i 

ill 

TO 

559 

/ 

58 

STO 

■?o 

*•  " 

GTO 

°PT 

FD 

52*LBL 

"PO  FB 

C7 

RCL 

«  7 

*_-  •-' 

*  ■-" 

54 

7 

ctr 

'm 

56 

RCL 

ii 

c~ 

* 

58 

RCL 

i  -i 

59 

* 

68 

RCL 

97 

hi 

'4 

i-. -- 

pr-i 

19 

>-lh  '■  ' 


29  X)8? 
38  GTO  92 

if  vcp  »EFDP"  ^  '&%  "m 

32*LBL  "OB"  *'?<  Xt2 

33  GTO  9*  *<  4<3 

34*LBL  92  —  * 

35  =EFPO='?"  71  * 

36  PROMPT  72  * 


73  * 

74  STO 

24 

75  RTH 

76*LBL 

aN!j 

7?  RCL 

'■c, 

73  RCL 

4;     ~ 

7<j  / 

88  *TH 

31*LBL 

»:n!T 

32  RCL 

7i 

83  RCI 

i  I 

34  RCL 

\C 

85  * 

36  2 

37  * 

38  / 

39  SQR1 

98  STO 

28 

9 1  *LE'L 

■pi 

92  RCL 

■•5c 

93  Xf2 

94  RCL 

28 

95  Kt2 

96  / 

97  2 

98  / 

99  CHS 

199  RCL 

•-iC 

191  a+2 

192  RCL 

28 

183  y? 2 

184  2 

185  * 

196  / 

187  Xf2 

188  1 

66 


189  + 

1 18  ShRT 

1  *!  i       <r 

112  S6RT 
l  13  RHL  29 

1 14  * 

115  RCL  3b 

116  * 

117  RCL  15 

IIS/ 
1  i  q  «£ 

129  / 

121  STQ  2? 

122  RT'H 

123*L8L  "FT  FB" 
ivd  2E9  "VI" 

125  RCL  28 

126  + 

127  'z'£P  "PO  FB" 

128  + 

129  sin  22 
139*L8L  "TR" 

131  FIX  2 

132  RCL  3b' 

133  1899 

114  / 
'35  SQRT 

136  1.3 
13?  * 

138  970  42 

139  RCL  95 
148  ♦ 


14' 


144  RCL  42 


145  RCL  91 
Hb  / 

147  970  58 
H8  RCL  39 
149  559 
158  * 

151  RCL  98 

152  RCL  49 

153  * 

154  / 

155  STO  41 

156  RCL  42 

158  PI 

159  * 

168  S7Q  43 

161  4.5 

162  ENTER* 

163  RCL  98 

164  * 

165  RCL  *2 

166  * 

;^7  <;tq  44 

168  Xt2 

169  RCL  11 
178  * 

171  RCL  43 

172  * 

177  RCl  41 

174  XOY 

175  / 


178  * 

179  8QRT 
188  RCL  59 


18!  ' 

182  ( 

;hS 

183  ' 

154  ■ 

I- 

185  STO  47 

186  RCL  41 

1  07 

;  c 

1 S8 

f4V 

189 

?CL  ' 

13 

198 

RCL 

1 1 

19! 

z 

192 

•:■ 

193 

z 

194 

cncT 

Z"7.r   1 

195 

/ 

196 

RCL 

47 

197 

198 

558 

199 

299 

STO 

48 

291 

RCL 

5 - 

292 

Op! 

58 

293 

Z 

294 

RCL 

4? 

295 

p! 

286 

z 

287 

298 

cjn 

29 

299 

RCL 

44 

2 1 8 

7 

■ji  i 

V*V 

•-!  4  •". 

RCL 

i  ~ 

213 

* 

21* 

•  RCL 

1 1 

21= 

j  * 

2It 

i  RCL 

82 

67 


"I-?"? 


i 


»«i?  * 


288  8t2 


217  *     •  253  /  289  1 

218  RCL  29  254  STO  54  298  + 

219  *  ?55  2  291  SQRT 
228  4489  256  *  292  + 

221  /  257  SQRT  293  SQRT 

222  STO  49  258  RCL  59  294  RCL  26 

VVl  Pf*!   a>;  OW  ..•  '"inc  * 

-—  •—  --'  ■■  -  *—  .-".it-/  £  7-J  * 

224  +  268  CHS  296  RCL  53 

225  STO  58  261  i  297  * 
226+LBL  "TR2"  262  +  298  558 

227  RCL  25  263  STO  55  299  / 

228  RCL  44  264  RCL  25  388  RCL  55 

229  '  265  JJt2  381  / 

238  STO  51  266+LBL  -VKTR>"       382  STO  56 

231  Xt2  267  RCL  53  383  RCL  22 

232  4,3  268  RCL  11  384  + 

233  *  269  RCL  43  385  RCL  52 

234  1  278  *  386  + 

235  +  271  2  387  XEO  "PCOHP1 

236  RCL  49  072  *  7gg  + 


389  STO  63 


233  STO  52  274  S6RT  318  XE9  "ESHP" 

239  RCL  22  275  STO  26  311  STO  63 

248  RCL  98  276  Kt2  312  °ESHP=" 

241  RCL  48  ;?77  /  7i_3  9RCL  ?■ 

242  *  278  2  314  flVIEy 

243  /  279  t  315  STOP 

244  558  288  CHS  316  GTO  83 

245  *  281  RCL  25  317  PHD 

246  STO  53  "?;?  ■*+•? 

247  RCL  43  283  RCL  26 

248  RCL  11  284  Xt2 

249  *  285  2 
258  RCL  44  i%  * 
251  8t2  287  / 
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C.   PTOT  (FULL  DISPLAY)  LISTING 


44  .5  37*LBL  "VI" 

91*LBL  ■PTGT"  45  *  33  RCL  36 

82  SF  83  4  rcl  25  89  RCL  11 

93*L8L  83  4?  3  98  RCL  12 

84  FIX  -  4y  YiK  91  * 

85  flBV  49  *  92  2 

86  hSV  59  55g  93  * 

87  *FsB  V£L=?°  5<  /  94  / 

93  PROHPT  5?  qto  23  95  S9RT 

99  FS?  55  57  nig  "PI  Fu"  96  STO  28 

19  PRX  54*LBL  "PQ  Fu"  9?*LBL  "PI  FB= 

1!  .592*8  «  rcl  13  98  RCL  25 

1?  /  g$  i  99  }ft2 

13  STO  25  57  vfy  198  RCL  29 

14  3  53  RCL  12  181  "*2 

15  YtX  59  *  182  / 

16  XE@  "RHO"  ga  rcl  11  183  2 

17  FS"  82  &j  *  184  / 

18  QTO  94  ^  RCL  87  195  CHS 

19  »qp  TR=v=  &3  /  igg  rcl  25 
29  PROHPT  §4  gns_  19  197  Ht2 

21  STO  81  ac:  ±  183  RCL  28 

22  :HO.  TR  BLBS?"  6£  449g  \&  m 
21  PROHPT  f7  /  118  2 
'•4  STQ  59  co   cTfi  "'  11!  * 

25  *CdO  TR-?"  ^q  yep  "My  112  / 

26  PROMPT  79  -ifc  113  Xt2 
2?  STO  92  71  4-3  114  1 
?fi  SF  82  7?  *  H 5  * 

29  -ffpq  KHOMH?"  jj  <  iiK  sort 

38  PROHPT  -44.  'I?  * 

31  X>9?  ic.  ■*.  118  S8RT 

32  GTO  82  76  STO  24  119  RCL  29 
73  XEQ  "EFPfi*  77  »pfi  pti="  128  * 
34*LBL  "3D"  7s  urcl  X  121  RCL  36 
35  CT0  84  79  qyjpy  122  * 
36+LBL  82  og  519?  123  RCL  15 

37  "EFPQ=?"  gt  vth  124  / 

38  PROHPT  32*1 gj  "Mi.!"  125  558 

39  STO  64  33  pcL  25  126  t 
48*LBL  84  34  rcl  13  127  STO  27 

41  RCL  64  3=;  /  123  RTH 

42  RCL  11  %  ora  129*LBL  "?T 

43  * 


69 


138  KE9  -VI" 

131 

■PI  FB=° 

13? 

RRCL  X 

133 

PVIEM 

134 

STOP 

1  7P 

RCL  28 

13b 

"PP=u 

i  77 

QRCL  'A 

17;!; 

flviry 

139 

STOP 

1  **dJ 

+ 

141 

XEQ  opO  ! 

142 

+ 

143 

•pi  ;~T|=- 

H4 

PRCL  X 

RVIEH 

146 

STO  22 

147 

STOP 

148 

RCL  25 

149 

RCL  13 

158 

+• 

'51 

481.8 

152 

ENTER* 

1*^-5 

RCL  18 

154 

* 

1" 

S9RT 

156 

,3848 

159  "NCH  HR: 
168  RRCL  X 

161  flVIEU 

162  STO  37 

163  STOP 
164*L8L  "TR' 

166  RCL  36 

167  IMMH 

168  / 

169  S8RT 
178  1  3 
17!  * 

172  STO  4? 


173 

RCL  85 

174 

+ 

175 

c 
J  -J 

176 

+ 

177 

STO 

48 

178 

RCL 

42 

179 

RCL 

91 

188 

/ 

1R1 

'-.  Tfi 

58 

182 

RCL 

38 

183 

558 

184 

A 

185 

RCL 

88 

186 

RCL 

48 

187 

* 

i  00 

189 

STO 

it 

198 

RCL 

42 

191 

yfo 

19? 

P! 

193 

* 

194 

STO 

•<7 

195 

4.5 

196 

EMTER* 

197 

RCL 

98 

198 

* 

199 

RCL 

42 

288 

* 

281 

STO 

44 

282 

w*o 

283 

RCL 

1  i 

284 

2 

285 

RCL 

43 

286 

k 

287 

RCL 

41 

288 

A<>> 

288 

218 

STO 

45 

211 

0 

01  0 

* 

017 

SPPT 

214 

RCL 

59 

215 

f 

216 

CHS 

217 

t 

218 

+ 

219 

STO 

47 

228 

RCL 

41 

001 

1.5 

000 

¥*¥ 

007 

RCL 

43 

224 

RCL 

i  1 

OOP 

z 

??A 

ii 

007 

* 

•T-.i"> 

iliO 

S8RT 

229 

238 

RCL 

*+!' 

071 

/ 

070 

558 

077 

/ 

234 

STO 

48 

£  ■''  3 

RCL 

59 

236 

RCL 

58 

?77 

* 

238 

RCL 

239 

PI 

24m 

* 

241 

242 

STy 

29 

243 

RCL 

44 

7 

^  AC 

Y+y 

246 

RCL 

43 

247 

* 

248 

RCL 

11 

249 

* 

258 

RCL 

82 

0P1 

* 

"jco 

CJC 

RCL 

29 

opt 

± 

254 

44H8 

OPP 

256 

STO 

49 

0P.7 

RCL 

48 

258 

+ 

70 


259  STO 

59 

268H.BL 

■TR2° 

26!  RCL 

•5  c 

262  RCL 

J  i 

263  / 

264  STO 

5! 

265  Xt2 

266  4,3 

267  * 

268  ! 

269  * 

279  RCL 

49 

27!  * 

272  STO 

52 

OT7  Df! 

5*5 

£  ■  •'■  KUL 

££ 

274  RCL 

98 

275  RCL 

49 

276  * 

077  / 

278  556 

279  * 

v*«  STO 

C7 

28!  RCL 

43 

282  RCL 

|| 

283  * 

284  RCL 

44 

S.O-J   :'•  !  i. 

286  * 

287  / 

288  STO 

f*4 

239  2 

29«  * 

29!  S8PT 

292  RCL 

CQ 

293  / 

294  CHS 

OQC  < 

296  + 

297  STO 

55 

?9ft  RC1 

1C 
£-J 

299  Stt2 

389+L8L 

«' IT/ TO 

T  I  \  !  p. 

39!  RCL 

C7 

392 

RCL 

11 

393 

RCL 

43 

394 

± 

395 

^ 

386 

* 

397 

/ 

398 

SORT 

399 

STO 

26 

3!9 

Xt2 

71  t 

/ 

710 

2 

3!3 

3!4 

CHS 

3!5 

RCL 

25 

3!6 

'Ji*: 
*  !  £ 

317 

RCL 

710 

•j  1 '.' 

Xt2 

3!9 

£ 

329 

z 

321 

700 

%*2 

707, 

< 

32  4 

t 

73*5 

SORT 

326 

+ 

707 

S8RT 

700 

RCL 

26 

329 

* 

339 

RCL 

C7 

771 

■JO  1 

* 

■30  £ 

559 

777 

334 

RCL 

cr 

335 

336 

ST  Sl 

56 

777 

RCL 

■J-L. 

338 

+ 

770 

STO 

57 

349 

RCL 

OS 

34! 

RCL 

44 

342 

+ 

343 

RCL 

1  0 

74i 

48!  = 

0 

345  * 

346  SQRT 

347  .3848 

348  / 

349  ■■' 

359  STO  69 

351  "HCH  TR=- 

352  PRCL  X 

353  PVIEN 

354  STOP 

355  RCL  56 
1%   "PI  TRF=" 

357  PRCL  X 

358  PVIE* 

359  STOP 
369  RCL  52 
36!  "PG  TRF=" 

362  PRCL  X 

363  QVIEW 

364  STOP 

365  RCL  57 

366  "PT  TRF=" 

367  PRCL  X 

368  (WIEH 

369  STOP 
379  RCL  22 
37!  + 

370  -pTOT=" 

373  PRCL  X 

374  BVIEN 

375  STO  63 

376  STOP 

377  XEQ  -PCOHP' 

773  CJ  +  ^3 

379  XEQ  "ESHP" 
389  "ESHP=" 

33!  PRCL  X 
332  PVIEW 

383  STOP 

384  GTO  93 

385  PNB 
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PCOMP  (POWER  REQUIRED  DUE  TO  COMPRESSIBILITY  EFFECTS) 

1.  PURPOSE 

This  subroutine  is  used  in  the  main  program,  PTOT.   It 
computes  the  additional  horsepower  necessary  due  to  the 
compressibility  effects  from  the  main  rotor. 

2 .  EQUATIONS 

M(tip  mr)=  (V(tip  mr)  +  V(fwd  mr) )  / 
(gamma  *  g  *  R  *  T) **.5 

MD=  M(tip  mr)  -  M(crit)  -  0.06 

P(COMP)=  rho  *  A(mr)  *  V(tip  mr)**3  *  sigma(mr)  * 
(0.012  *  MD  +  0.01  *  MD**3) 

where : 

V(fwd)  is  the  forward  velocity  in  knots. 

V(tip)  is  the  main  rotor  tip  velocity. 

M(crit)  is  the  critical  mach  number  (a  good  approximation 
is  . 65) . 

DISCUSSION:   The  horsepower  required  due  to  compressibility 
effects  does  not  become  a  positive  value  until  a  certain 
forward  velocity  is  attained.   By  providing  a  check  for  nega- 
tive MD,  only  positive  values  of  PCOMP  are  stored  in  Register 
6  3  (R63) .   When  run  independent  of  the  main  program,  MD  is 
displayed  if  the  value  is  negative.   PCOMP  is  displayed  and 
stored  in  R6  3  otherwise.   When  run  in  conjunction  with  PTOT, 
MD  and  PCOMP  are  not  displayed.   PCOMP  is  computed  and  added 
to  the  total  power  computed  in  PTOT. 
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3.  FLOWCHART  (PCOMP) 


START 


COMPUTE 

MCH  #MR 

ST037 


COMPUTE  Md 


YES 

<xxMd<0?\. 

1 

NO 

! 

STO  Md  IN 
R46 

,  | 

DISPLAY  Md 

t 

COMPUTE 
PCOMP 

I 

' 

DISPLAY 
PCOMP 
ST063 

i 

r 

1 

r  ^ 

c 


STOP 
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4.   EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS: 

A)  Compute  the  horsepower  required  due  to  compressibility 
effects  at  20  knots  forward  velocity,  0  PA,  and  15  deg  C. 

Register  25  contains  the  value,  in  ft  per  sec,  of 
forward  velocity.   Register  11  contains  the  density  altitude 
(rho) .   To  execute  PCOMP  independent  of  the  main  program,  the 
desired  forward  velocity  must  be  converted   to  units  of  ft/sec 
and  stored  into  Register  25.   The  subroutine  "rho"  must  be 
executed  to  insure  the  correct  value  of  density  is  stored  in 
Register  11. 

KEYSTROKES  DISPLAY 

20   enter  20.00 — 

0.59248     /  33.76 

sto  25  33.76 

XEQ  (alpha)  RHO  (alpha)                    PA=? 

0       (r/s)  TEMP  C=? 

15      (r/s)  2.38   -03 

XEQ  (alpha)  PCOMP  (alpha)  -0.03 

DISCUSSION:  At  20  knots,  the  compressibility  factor  is 
negative,  therefore  there  is  no  extra  horsepower  needed  due 
to  compressibility  effects.   The  value  of  MD  is  displayed. 

B)  Compute   the  horsepower  required  due  to  compressibility 
effects  at  160  knots  forward  airspeed,  4000  ft  pa,  35  deg  C. 
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KEYSTROKES  DISPLAY 

160  enter  160 

0.59248  /  270.05 

STO  25  270.05 

XEQ  (alpha)  RHO  (alpha)  PA=? 

4000     (r/s)  TEMP  C=? 

35       (r/s)  1.92    -03 

XEQ  (alpha)   PCOMP  (alpha)  418.48 

DISCUSSION:   At  a  forward  velocity  of  16  0  knots  at  400  0 

ft  PA  and  35  deg  C,  an  additional  power  requirement  of  418.48 
horsepower  results  due  to  compressibility  effects  from  the 

main  rotor.   This  value  is  stored  in  Register  63  and  will  be 

added  to  other  power  requirements  in  the  main  program. 


75 


PROGRAM  LISTING 


81H.BL  "PCOHF' 

92  RCL  25 

93  RCL  13 

94  + 

95  RCL  18 
9b  481.8 

8?  * 

98  SORT 

99  f 

19  ,3648 

11  * 

12  STO  37 

13  RCL  93 

14  - 

15  M 


19  GTO  91 
19  STO  46 
29  3 
?1  V+X 

0""3   - 
?1  * 

24  =912 

25  EHTERt 
vn  ?CL  46 
2?  * 

23  * 

29  RCL  19 

39  * 


33  V^X 

34  * 

36  * 

37  RHL  1 i 

38  * 

39  559 
49  ■■- 

41  STO  63 
42RBL  91 
43  END 
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ESHP  (EQUIVALENT  SHAFT  HORSEPOWER) 

1.  PURPOSE 

This  subroutine  is  used  in  the  main  program  PTOT.   It 
computes  the  engine  shaft  horsepower  required.   The  ESHP  is 
equivalent  to  the  rotor  shaft  horsepower  (PTOT  +  PCOMP) 
adjusted  for  transmission  and  accessory  losses.   In  addition, 
a  10  percent  shaft  horsepower  loss  is  computed  for  every 
additional  engine  installed. 

2.  EQUATIONS 

ESHP=  (0.10  *  ESHP  *  (N-l)  +  1.03  *  RSHP  +  10.0  HP 

where: 

N  is  the  number  of  engines  installed. 

10.0  hp  is  the  approximate  horsepower  required  due  to 
accessory  usage. 

RSHP  is  the  rotor  shaft  horsepower  (PTOT  +  PCOMP) . 
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3.  FLOWCHART  (ESHP) 


NO 


PROMPT  -NO.  ENGS-? 
STO  R  67 


;n 


sr  05 


RCL  R63  (PTOT+PCOMP) 
COMPUTE  &  DISPLAY  ESHP 


c 


STOP 
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4.  EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS 

Compute  the  engine  shaft  horsepower  required  for  a  heli- 
copter with  two  engines  having  a  RSHP  of  1500  hp. 

KEYSTROKES  DISPLAY 

1500   STO   63  1500 

CF  05  1500 

XEQ  (alpha)  ESHP  (alpha)  NO.  ENGS=? 

2  (r/s)  1705.00 

DISCUSSION:   A  helicopter  with  a  RSHP  of  1500  hp  will 
require  205  additional  horsepower  due  to  transmission  and 
accessory  losses,  as  well  as  a  10  percent  SHP  loss  due  to 
an  additional  engine.   To  execute  this  subroutine  independently 
of  the  main  program,  a  value  for  RSHP  must  be  known  and 
stored  in  R63.   Flag  05  must  be  cleared  for  the  prompt  "NO. 
ENGS=?"  to  be  viewed. 

5.  PROGRAM  LISTING 


81+LBL  "z; 

W 

'  0 
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82  FS?  95 

13 

* 
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14 

i 
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|>T- --"in 

i  c 

* 

95  pj?0HPT 

16 

RCL  6 

96  sin  67 

1 1 

1,93 

9?  3F  95 

18 

* 

98*LSL  91 

1? 

+ 

99  RCL  67 

29 

18 
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?1 

* 
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FM    (FIGURE    OF    MERIT) 

1.  PURPOSE 

This  subroutine  is  used  in  the  main  program  PHV  (Power 
to  Hover) .   It  computes  the  Figure  of  Merit  which  is  the 
ratio  of  induced  power  (Pi) ,  to  the  total  power  (Pt) ,  of 
the  main  rotor.   A  computer  value  of  between  0.7  and  0.8  is 
acceptable. 

2 .  EQUATIONS 

FM=  (100  -  ((Pt(mr  ige)  -  Pi (rar  oge) )  /  Pi (mr  oge) ) 
*  100)  *  .01 

where : 

Pt(mr  ige)  is  the  total  power  required  to  hover  in  ground 
effect  for  the  main  rotor  (stored  in  R30) . 

Pi(mr  oge)  is  the  induced  power  required  out  of  ground 
effect  for  the  main  rotor  (stored  in  R16) . 
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3.   FLOWCHART    (FM) 


NO 


NO 


£ 


XEQ  *RVW 


HIGH? 


YES 


XEO   "CHD* 


YFS 


NO 


XEO  WWT 


ItUTW 


S?    04 


YES 


PROMPT   "CLR  HR,PHV, 
FM.CHO.RV 
INPUT 
PTOT.PCOMP.ESHP* 


STOP 
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4.   EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS:' 

A)  Compute  the  Figure  of  Merit  of  a  helicopter  which 
has  Pi (mr  oge)  of  1000  hp  and  a  Pt(mr  ige)  of  1500  hp . 

KEYSTROKES  DISPLAY 

1000   STO   16  1000 

1500   STO   30  1500 

XEQ  (alpha)  FM  (alpha)  FIG  MER=0.50 

(r/s)  FM  OK? 

0        (r/s)  FM  HIGH? 

0        (r/s)  (program  transfers  to  subroutine  "RV") 

B)  Compute  the  Figure  of  Merit  for  a  helicopter  with  a 
Pi (mr  oge)  of  1250  hp  and  a  Pt(mr  ige)  of  1400  hp. 

KEYSTROKES  DISPLAY 

1250   STO   16  1250 

1400   STO   30  1400 

XEQ  (alpha)  FM  (alpha)  FIG  MER=0.88 

(r/s)  FM  OK? 

0  (r/s)  FM  HIGH? 

1  (r/s)  (program  transfers  to  subroutine  (CHD") 

C)  Compute  the  Figure  of  Merit  for  a  helicopter  with 
a  Pi (mr  oge)  of  1200  hp  and  a  Pt(mr  ige)  of  1500  hp. 

KEYSTROKES  DISPLAY 

1200   STO   16  1200 

1500   STO   30  1500 
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XEQ  (alpha)  FM  (alpha)  FIG  MER=0.75 

(r/s)  FM  OK? 

1       (r/s)       (If  flag  04  is  set,  the  user  is  prompted 

"clr  MR,  PHV,  FM,  CHD,  RV,  input  PTOT, 
PCOMP,  ESHP."   If  flag  04  is  not  set, 
the  program  transfers  to  the  "WT" 
program  and  the  first  empty  weight 
approximation  is  displayed.) 

DISCUSSION:   To  run  this  subroutine  independently  of  the 
main  program  "PHV,"  the  values  for  Pi (mr  oge)  and  Pt(mr  ige) 
must  be  inputted  manually  into  their  appropriate  registers. 
In  the  first  example,  the  Figure  of  Merit  was  computed  to  be 
0.50,  well  below  the  minimum  acceptable  value  of  0.70.   The 
subroutine  "RV"  was  therefore  executed  (this  subroutine 
enables  the  user  to  increase  the  FM  value) .   In  the  second 
example,  the  Figure  of  Merit  was  higher  than  the  acceptable 
value  of  0.80  and  the  subroutine  "CHD"  was  executed  (this 
subroutine  enables  the  user  to  decrease  the  FM  value) .   In  the 
third  example,  the  Figure  of  Merit  was  within  the  specified 
limits.   When  executing  "FM"  as  part  of  the  main  program,  if 
the  "WT"  program  has  not  been  executed  (flag  04  has  not  been 
set) ,  then  the  program  automatically  transfers  to  "WT"  and 
displays  the  first  approximation  for  the  aircraft  empty  weight 
(.6  *  spec,  wt) .   If,  however,  flag  04  is  set,  the  user  is 
instructed  to  clear  from  program  memory  the  programs  that  are 
no  longer  needed  and  to  input  three  additional  programs. 


83 


5.       PROGRAM   LISTING 
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►LBL  "FH" 

92 

Fix  2 

83 

*CL  16 

84 

EHTEPt 

95 

RCL  38 

% 

*CH 

97 

188 

88 

8<>Y 

89 

- 

18 

.81 

11 

* 

12 

"FTC  HEP 

17 

PRCL  x 

4  J 

i  H 

SVIEW 

<  C 
I -J 

r  i  S  4 

lb 
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i  7 

•FH  QK?- 

13  PROHPT 

-:  r. 

X=8? 

28 

GTO  92 

01 

F§?  84 

22  GTO  9! 

23  XEQ  rWT- 
24»LBL  81 

25  "CLR  HP..  PHVi  FH- 

2b  "b  ChB;  RV" 

2?  PROHPT 

2g  "f-IHPUT  PTQT,  PC" 

2?  "MjHP,  ESHP,- 

38  PROHPT 

31  QIO  84 

32*LBL  82 

33  -FH  HIGH'" 

74  PROHPT 

35  'tW 

36  GTC  93 

3?  >£j3  -RV" 

33*LBL  83 
3?  XEQ  "CHD" 

4h*LBL  94 

41    FH3 
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CHD  (CHORD) 

1.  PURPOSE 

This  subroutine  is  called  up  in  the  "FM"  program.   It 
is  designed  to  reduce  the  value  computed  for  the  Figure  of 
Merit.   When  executed,  the  former  chord  value  is  displayed 
momentarily.   The  user  must  input  a  larger  value  of  chord 
length.   This  larger  chord  will  increase  the  solidity, 
decrease  the  blade  loading  and  decrease  the  aspect  ratio. 
Once  these  values  have  been  computed  and  stored  in  their 
appropriate  registers,  the  program  transfers  to  the  "MR" 
program  and  immediately  displays  the  values  for  DL,  RV,  CT, 
SD,  c,  AR,  and  CL.   Program  execution  continues  as  before. 
A  new  Figure  of  Merit  will  be  displayed.   Proceed  as  before, 
depending  on  this  value. 

2 .  EQUATIONS 

SD--=(c  *  b)  /  (PI  *  R) 
BL=CT  /  SD 
AR=R  /  c 

where : 

SD  is  the  solidity. 

c  is  the  chord. 

b  is  the  number  of  main  rotor  blades . 

R  is  the  radius  of  the  main  rotor . 

CT  is  the  coefficient  of  thrust  (main  rotor) . 

AR  is  the  aspect  ratio. 
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3.  FLOWCHART   (None) 

4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS: 

This  subroutine  can  only  be  used  in  conjunction  with 
several  main  programs.   See  "PHV"  for  example  problems 
involving  this  subroutine. 

5.  PROGRAM  LISTING 
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RV  (ROTATIONAL  VELOCITY) 

1.  PURPOSE 

This  subroutine  is  called  up  in  the  "FM"  program.   It 
is  designed  to  increase  the  computed  Figure  of  Merit  values. 
When  executed,  the  former  tip  velocity  is  displayed  momentar- 
ily.  The  user  is  then  instructed  to  input  a  new  value  for 
V(tip).   This  value  must  be  lower  than  the  former  value.   The 
program  then  calculates  new  values  for  RV,  BL,  CT,  SD,  c,  AR, 
and  CL  using  the  new  V(tip).   The  program  automatically 
transfers  to  "MR"  and  displays  DL  and  the  above  values. 
Program  execution  continues  as  before.   A  new  Figure  of  Merit 
will  be  displayed.   Proceed  as  before,  depending  on  the  value 
The  user  should  be  aware  that  a  dramatic  reduction  in  V(tip) 
is  required  to  increase  the  Figure  of  Merit. 

2 .  EQUATIONS 

RV=  V(tip)  /  R 

BL=  -0.16667  *  (CV)max  fwd)  /  0.59248)  /  V(tip)) 
+  .15515 

CT=  GW  /  (A  *  rho  *  V(tip)**2) 

SD=  CT  /  BL 

c=   (SD  *  PI  *  R(mr))  /  b(rar) 

AR=  R(rar)  /  c(mr) 
CL=  (6.0  *  CT)  /  SD 
where  : 

GW  is  the  gross  weight. 

R(rar)  is  the  radius  of  the  main  rotor. 
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V(tip)  is  the  maximum  tip  velocity  of  the  main  rotor. 

RV  is  the  rotational  velocity  of  the  main  rotor. 

CT  is  the  coefficient  of  thrust  of  the  main  rotor. 

rho  is  the  density. 

SD  is  the  solidity. 

BL  is  the  blade  loading. 

b  is  the  number  of  main  rotor  blades. 

c  is  the  chord. 

AR  is  the  aspect  ratio. 

CL  is  the  coefficient  of  lift. 

3.  FLOWCHART   (None) 

4.  EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS: 

This  subroutine  can  only  be  used  in  conjunction  with 
several  main  programs.   See  "PHV"  for  example  problems 
involving  this  subroutine . 
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5.   PROGRAM  LISTING 


8t*LBL  =SV" 

82  RCL  13 

94  SRCL  X 

95  QVIEW 

96  PSE 
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EFPA  (EFFECTIVE  FLAT  PLATE  AREA) 

1.   PURPOSE 

This  program  determines  the  effective  flat  plate  area  of 
a  design  helicopter  as  a  function  of  the  following  parameters 
gross  weight,  clean  or  dirty  lines,  skid,  fixed  wheel,  or 
retractable  type  landing  gear.   The  formula  used  in  the 
determination  of  the  EFPA  is: 

EFPA  =  (A)  *  (GW)**. 66667  where  the  coefficient  (A)  is 
determined  as  shown  below. 


SKID 

FIXED 

RETRACTABLE 

.032 

.037 

.027 

.050 

.056 

.046 

CLEAN  CONFIGURATION 
DIRTY  CONFIGURATION 

These  figures  were  computed  through  an  iterative  procedure 
of  comparing  the  known  EFPA  values  of  production  aircraft 
and  their  gross  weights  to  values  computed  with  the  above 
formula.   A  degree  of  accuracy  to  within  10%  can  be  achieved 
using  these  coefficients.   It  is  left  to  the  user  to  determine 
if  his  design  is  clean  or  dirty  (i.e.,  is  the  design  stream- 
lined or  does  it  contain  numerous  wing  stores,  flat  plate 
canopy,  etc . ) . 

2.   EQUATIONS   (See  above) 
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3.  FLOWCHART  (EFPA) 


I  A  5  .048 


YES 


YES 


fcL=. 


YES 


I  A  =  J3L5£ 


HSU 


■  NO 
I  A  =  ,n?7 


YFS 


lft=.Q3? 


_¥E£. 


A  =  , 


£21. 


RCL  R36  (GROSS  WEIGHT),  MULTIPLT 
BY  A,  ANO  RAISE  BY  ,6667 


DISPLAY 
EFPA  ST064 


STOP 


(R/S) 


PROG  RTNS 

TO  PTOT, 

LBLDD 
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4.   EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS: 

A)  Determine  the  effective  flat  plate  area  of  a  heli- 
copter with  the  following  specifications: 

Configuration:   Dirty- 
Gross  Weight:    14500  lbs 
Landing  Gear:    Fixed  wheel 

Note:   To  run  EFPA  independent  of  the  main  program,  the 
desired  gross  weight  must  be  inputted  manually  into  Register 
36.   This  is  done  automatically  when  execution  of  the  main 
program  is  performed. 

KEYSTROKES  DISPLAY 

14500   STO  36  14500 

XEQ  (alpha)  EFPA  (alpha)  CLEAN? 

0  (r/s)  SKID? 

0  (r/s)  FIX  WHEEL? 

1  (r/s)  EFPA=3  3.3 

The  above  specifications  were  from  the  AAH-64  Attack 
Helicopter  whose  actual  EFPA  is  33  sq  ft.   The  computed  EFPA 
differs  by  .9%. 

B)  Determine  the  EFPA  of  a  helicopter  with  the  following 
specifications : 

Configuration:   Clean 
Gross  Weight:    2150  lbs 
Landing  Gear:    Skid 
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KEYSTROKES  DISPLAY 

2150   STO   36  2150 

XEQ  (alpha)  EFPA  (alpha)  CLEAN? 

1  (r/s)  SKID? 

1  (r/s)  EFPA=5.3  3 

Again,  the  above  specifications  represent  a  production 

aircraft,  the  OH6A,  whose  actual  EFPA  is  5.4  sq  ft.   The 

computed  value  differs  by  1.3%. 

5.   PROGRAM  LISTING 


H;*;jj^    *£TPj 

92 

?  T  ¥   5 

0"J 

"CLEhH?* 

84 

PRGHPT 

85 

W>HV 

86 

QTO  81 

H7 

"SKIIP" 

MH 

PSHHP" 

99 

X>8? 

18 

QTO  82 

1  i 

"FIX  =*HEi 

12 

PRfflfPT 

»7 

y>8v 

i   J 
I** 

510  83 

ier 

=  8*8 

16 

QTO  18 

17*LBL  81 

*  s 

"SKUJ^" 

19 

PpfiSPT 

28 

a>9" 

21 

QIC  9* 

09 

"Pis  MHE! 

97 

p?0HPt 

rn  9^ 


26  , y v7 

27  G'O  18 
28*LBL  82 
29  =858 
39  GTO  18 
71*LBL  83 

32  ,956 

33  QTO  19 
3<*»LBL  8<i 

35  .832 

36  QTO  18 

3?#i_R|_    Hj 

3fi    837 

39*LBL  18 
48  RCL  36 
41  .66667 

4?  Y*X 

43  * 

44  '£Z?u=° 

45  SRCL  % 

46  PVIEH 

47  3TQ  64 

48  HlljP 
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DENSITY  (RHO) 

1.  PURPOSE 

This  program  computes  the  density  of  the  air  at  a 
specified  pressure  altitude  and  temperature.   In  so  doing, 
the  program  automatically  calculates,  but  does  not  display, 
the  density  altitude  and  stores  this  value  in  Register  ten. 
The  equation  used  for  this  calculation  is  based  upon  the 
standard  ICAO  atmosphere  and  is  accurate  to  an  altitude  of 
36,089  ft. 

2 .  EQUATIONS 

RHO=  RHO(SSL)  *  (1  -  (K)  *  (H))**4.2561 
where : 

RHO (SSL)  is  the  density  of  the  air  at  standard  sea 

level  which  is  equal  to  0.0023769  (lb  sec**2/f t**4) 

K=  6.875  *  10**-6 

H=  densitv  altitude  (ft) 
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3.  FLOWCHART  (RHO) 


C 


START 


PROMPT  FOR  PA  S,    TFMP  C 
COMPUTE  DA  STO  RIO 


IOMPUTE  A  DISPLAY  RHO 
STO  Rll 


STOP 
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4.  EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS: 

Find  the  density  and  density  altitude  when  the  pressure 
altitude  is  0.0  ft  and  the  temperature  is  15  deg.  C. 

KEYSTROKES  DISPLAY 

XEQ  (alpha)  RHO  (alpha)  PA=? 

0  (r/s)  TEMP  C=? 

15  (r/s)  2.38    -03 

To  find  the  density  altitude  simply  recall  Register  10 
(-1.19) . 

5.  PROGRAM   LISTING 
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REGISTER  FILE 

REGISTER  NUMBER INFORMATION  IN  REGISTER 

00 Landing  Gear  Information 

01 Aspect  Ratio  (tr) 

02 Cdo  (tr) 

0  3 Mach  Crit 

04 Chord  Main  Rotor  (c) 

05 Radius  Main  Rotor  (r) 

06 #  main  rotor  blades  (b) 

0  7 Cdo  (mr) 

08 Rotational  Vel  mr  (rv) 

09 Control  #  (printer) 

10 Density  Altitude  (da) 

11 RHO 

12 Area  mr  (A) 

13 Tip  velocity  (Vt) 

14 Coeff  of  Thrust  mr  (CT) 

15 Tip  Loss  Factor  mr  (B) 

16 Pi  (oge)  mr 

17 h/D 

18 Temperature  (c  to  k) 

19 Solidity  mr  (SD) 

20 Induced  Vel  hover  (Vi) 
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21 Profile  Power  hover  (Po) 

22 Total  Power  mr  fwd  (Pt  fwd) 

23 Max  Fwd  Vel 

24 Profile  Power  fwd  (Po  mr) 

25 Forward  Velocity  (Vf) 

26 Induced  tr  Vel  (portion) 

27 Induced  Power  (mr  fwd) 

28 Parasite  Power  (Pp) 

29 Solidity  (tr) 

30 ■ Total  Power  (mr  oge) 

31 ■ Disk  Loading  (DL) 

32 Aspect  Radio  (AR) 

33 Coefficient  of  Lift  (CD 

34 Total  Power  (mr  ige) 

35 Empty  Weight  (WE) 

36 Gross  Weight  (GW) 

37 Tip   Mach  #  (mr) 

38 Induced  Power  (mr  ige) 

39 Max  G^  (specification) 

40 Length  of  Tail  (L  tr) 

41 Thrust  of  tr 

42 Radius  of  tr  (R) 

43 Area  of  tr  (A) 

44 Tip  vel  tr  (Vt) 

45 Coeff  of  Thrust  tr  (CT) 

46 MD 
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47 Tip  Loss  Factor  tr  (B) 

48 Pi(tl-tr)  hover  SSL  oge 

49 Po(tr)  hover  SSL  oge 

50 Pt(tr)  hover  SSL  oge 

51 MU  (tr) 

52 Profile  Power  (tr  fwd) 

53 Thrust  (tr  fwd) 

54 CT  (tr  fwd) 

55 B  (tr  fwd) 

56 Pi  (tl-tr-fwd) 

57 Pt  (tr-fwd) 

58 Chord  tr  (c) 

59 1  tr  Blades  (b) 

60 Tip  xMach  (tr) 

61 Pi  total  (mr+tr) 

62 Po  total  (mr+tr) 

53 PTOT  (mr+tr) 

64 EFPA 

65 Skid  Gear  Weight 

66 Fixed  Wheel  Gear  Wt 

67 No.  of  Engines 
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APPENDIX  B 
EXAMPLE/PROGRAM  VALIDATION  PROBLEMS 

PRELIMINARY  DESIGN  OF  A  CARGO  HELICOPTER 

The  student  is  tasked  to  design  a  heavy  cargo  helicopter 
A  determination  must  be  made  as  to  the  most  practical  type 
landing  gear  to  be  utilized  in  the  design.   The  following 
specifications  are  provided: 

Maximum  Allowable  Gross  Weight  40,000  lbs 

Maximum  Rotor  Diameter:  76  ft 

Maximum  Velocity:  180  kts 

Useful  Load:  9000  lbs 

Fuel  Weight:  45  00  lbs 

Height  of  Rotor  Above  the  Ground:  16  ft 

Cdo  Main  Rotor:  .01 

Cruise  Velocity:  150  kts 

Tail  Rotor  Aspect  Ratio  (4.5-8.0):  6.5 

Cdo  Tail  Rotor  (1.25  Cdo  mr<Cdo  tr<l . 5  Cdo  mr) :     .0145 

No.  of  Tail  Rotor  Blades:  4.0 

No.  of  Main  Rotor  Blades:  6.0 

Critical  Mach  Number:  -65 

Number  of  Landing  Gear:  4.0 

Number  of  Engines:  2.0 

In  an  effort  to  eliminate  unnecessary  repetition,  the 
user  is  advised  to  refer  to  the  individual  program  summaries 
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for  a  more  detailed  description.   Before  proceeding  further 
with  this  problem,  the  user  must  clear  all  flags  and  load  MR, 
PHV,  FM,  CHD,   RV,  RHO,  WT,  and  EFPA. 


KEYSTROKES 

XEQ  (a 

lpha) 

SIZE  (alpha) 

068 

XEQ  (alpha) 

MR  (alpha) 

40,000 

(r/s) 

38 

(r/s) 

0.65 

(r/s) 
(r/s) 

180 

(r/s) 
(r/s) 
(r/s) 
(r/s) 
(r/s) 
(r/s) 
(r/s) 
(r/s) 

1 

(r/s) 

6 

(r/s) 

0.01 

ir/s) 
(r/s) 

16 

(r/s) 
(r/s) 
(r/s) 

DISPLAY 

SIZE 

0.00 

Spec  Wt=? 

R=? 

Mch  Crit=? 

Vt  max=  725.6 

Vf  max=? 

DL=7.054 

RV=19.0  95 

CT=  .0  06 

SD=  .066 

c=  1.97 

AR=  19.2  8 

CL=  .512 

R  ok? 

No.  MR  Bids? 

Cdo  mr=? 

Pth  oge=  2  900 

H=? 

Pth  ige=  2305 

FIG  MER=  0.7  3 

FM  OK? 
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1 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

4500 

(r/s) 

9000 

(r/s) 

I 

(r/s) 

1 

(r/s) 

(r/s) 

1 

(r/s) 

38 

(r/s) 

0.65 

(r/s) 

(r/s) 

180 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

WE=  24,000 

Wb=  2516.35 

Wh=  14  92.9  8 

Wp=  3479.66 

Wf=  5040.00 

Wc=  1440.00 

We=  1440.00 

Wq=  6720.00 

WE  2=  22,128.99 

W  FL? 

USE  LD? 

SKID? 

iMR>2  bids? 

TGW=  36,311.5 

WT  OK? 

R=? 

Mch  Crit=? 

Vt  Mx=  725.62 

Vf  Mx=? 

DL=  8.00  4 

RV=  19.095 

CT=  .006 

SD=  .075 

c=  2.236 

AR=  16.996 

CL=  .512 
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(r/s) 

1 

(r/s) 

6 

(r/s) 

0.01 

(r/s) 
(r/s) 

16 

(r/s) 
(r/s) 
(r/s) 

1 

(r/s) 
(r/s) 

XEQ 

(alpha) 

CLP    (alpha) 

(alpha) 

MR      (alpha) 

R  OK? 

NO  MR  bids? 

Cdo  mr=? 

Pth  oge=  346  3 

H=? 

Pth  ige=  2743 

FIG  MER=  0.75 

FM  OK? 

Clr  MR,PHV,FM,CHD,RV 

Input  PTOT ,  PCOMP  ,  ESHP 

CLP- 

1.0 


Continue  for  PHV,  FM,  CHD,  and  RV.   Input  PCOMP  and  ESHP. 
If  a  printer  is  to  be  used,  connect  it  after  inputting  the 
appropriate  PTOT  program.   For  this  example,  a  printer  will  be 
used. 


XEQ  (alpha)  PTOT  (alpha) 
0.18020      (r/s) 


0 

(r/s) 

15 

(r/s) 

6.5 

(r/s) 

4 

(r/s) 

0.0145 

(r/s) 

0 

(r/s) 

0 

(r/s) 

INPUT  CNT  NO 

PA=? 

TEMP  C=? 

AR  tr=? 

No.  tr  Bids? 

Cdo  tr=? 

EFPA  KNOWN? 

CLEAN? 

SKID? 
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1  (rs)  EFPA=    54.83 
(r/s)  No.    Engs=? 

2  (r/s) 

For  this  example,  the  power  requirements  are  applicable 
to  standard  sea  level  conditions  (0  pa,  15  deg  C) .    The 
user  may,  of  course,  use  any  altitude.   The  aircraft,  being 
of  the  cargo  type,  will  probably  not  have  clean  lines.   For 
this  first  iteration,  a  skid  gear  is  used.   Recall  that  the 
skid  is  used  as  a  base  for  the  fixed  and  retractable  type 
gears.   The  control  number  (.18020)  was  selected  because  the 
maximum  velocity  of  the  aircraft  is  180  knots  and  20  knots 
is  a  suitable  increment.   Note  how  the  printer  outputs  the 
power  required  at  specific  velocities.   Once  the  printer 
signals  the  completion  of  the  program,  the  user  re-executes 
the  "WT"  program. 

XEQ  (alpha)  WT  (alpha)  W  FL? 

USE  LD? 

SKID? 

NO.  LG? 

FX  GR? 

T  GW=  37209.57 

INPUT  CNT  NO. 

EFPA  KNOWN? 

CLEAN? 

SKID? 


104 


4500 

(r/s) 

9000 

(r/s) 

0 

(r/s) 

4 

(r/s) 

1 

(r/s) 

(r/s) 

0.18020 

(r/s) 

0 

(r/s) 

0 

(r/s) 

0 

1 


(r/s) 
(r/s) 

(r/s) 
(r/s) 


FIX  WHEEL? 
EFPA=  62.42 
NO.  ENGS=? 


The  printer  now.  displays  the  power  required  from  0  to  130 
knots,  incremented  every  20  knots. 


XEQ  (alpha)  WT  (alpha) 


4500 

(r/s) 

9000 

(r/s) 

0 

(r/s) 

4 

(r/s) 

0 

(r/s) 

(r/s) 

0.18020 

(r/s) 

0 

(r/s) 

0 

(r/s) 

0 

(r/s) 

0 

(r/s) 

(r/s) 

2 

(r/s) 

W  FL? 

USE  LD? 

SKID? 

NO.  LG? 

FX  GR? 

T  GW=  37464.62 

INPUT  CNT  NO. 

EFPA  KNOWN? 

CLEAN? 

SKID? 

FIX  WHEEL? 

EFPA=  53.74 

NO.  ENGS=? 
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The  printer  now  displays  the  power  required  for  the  air- 
craft with  a  retractable  landing  gear. 


SKID 


FIXED  WHEEL 


RETRACTABLE  GEAR 


TOTRL  POWER 


TOTfiL  POWER 


TOTAL     POWER 


HW6311.51; 

VEL  ^KHOTS) 
F8MP 


EFPfi=62,42 


\kH!i 


8 

**± 

4247 

?** 

29 

*** 

3721 

*t% 

48 

**$ 

/Hh.J: 

*** 

68 

#*# 

2638 

lis 

39 

**» 

2817 

#*# 

188 

*** 

3283 

*** 

129 

*** 

4818 

*** 

148 

*#* 

583? 

*** 

169 

*=* 

6374 

*** 

188 

*** 

8859 

**? 

CQUP 


9 

*** 

4376 

*** 

28 

*** 

70  j  7 

*** 

48 

*** 

2943 

*** 

69 

*#* 

■"-70  "7 

*** 

39 

*•?•* 

2918 

*** 

188 

*** 

3419 

*** 

129 

*** 

4215 

**s 

148 

*** 

5754 

•.'•ji.*t 

*** 

168 

*** 

6779 

*** 

188 

4*? 

8622 

*** 

GH=37464. c£ 

PFPP=53.74 

VEL  <KNOTS> 

E8HP 

8 

*** 

4413 

*** 

28 

*** 

3376 

*** 

40 

*** 

2%3 

**# 

(*8 

*** 

2724 

*#* 

38 

iii 

2889 

s*.4 

108 

*** 

?** 

1 '"'  9 

*#* 

4947 

ze* 

148 

x&x 

5049 

*** 

168 

*  '.£  2 

6362 

*** 

188 

*** 

3821 

*** 
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From  the  above  data,  the  user  can  readily  see  that,  at  a 
hover .  The  helicopter  configured  with  the  skid  gear  requires 
less  power  due  to  the  gear's  reduced  weight.   As  forward 
speed  increases,  however,  the  effective  flat  plate  area 
value  (parasite  drag)  begins  to  affect  power  requirements. 
The  skid  configured  aircraft  always  requires  less  power  than 
the  fixed  wheel  aircraft  due  to  its  lighter  weight  and 
smaller  EFPA  value. 

The  benefits  of  the  retractable  gear's  reduced  drag  versus 
the  skid  gear's  lighter  weight  are  not  appreciated  until  the 
aircraft  attains  its  designed  cruise  velocity  of  one  hundred 
and  fifty  knots.   Since  the  aircraft  will  certainly  be  flying 
at  or  below  cruise  velocity  more  than  above  this  speed,  it 
seems  logical  that  a  skid  type  gear  should  be  employed  in  the 
design.   This  logic  begins  to  lose  its  validity  when  it  is 
understood  that  heavy  cargo  helicopters  are  often  not  capable 
of  performing  a  hovering  type  take-off,  as  would  be  required 
with  skid  gear. 

The  environment  these  aircraft  operate  in  (heavy  loads 
and  oftentimes  high  density  altitude)  results  in  rolling 
take-offs  being  used  to  keep  within  engine  and  transmission 
limitations.   The  question  of  skid  versus  wheel  type  gear  is 
therefore  academic  when  heavy  cargo  helicopters  are  concerned. 

When  comparing  the  fixed  and  retractable  data,  it  is 
apparent  that  at  approximately  6  0  knots  the  retractable 
geared  aircraft  begins  to  require  less  power  even  though  that 
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aircraft  is  heavier  by  more  than  two  hundred  pounds!   Since 
the  helicopter  will  be  flying  at  speeds  much  greater  than 
sixty  knots,  the  most  advantageous  landing  gear  is  the 
retractable  type. 

The  landing  gear  data  may  be  evaluated  in  graphical  form 
by  using  the  program  "Myplot."   The  following  is  a  graph  of 
the  preceding  data. 


LU    O 

_ 

UJ 
</i  o 

0=  o 

92 


<   ° 

352 


HELICOPTER  POWER  REQUIREMENTS 


SHAFT  HORSEPOWER  VS.  AIRSPEED       power  curves 

o-SKID 

° -FIXED  WHEEL 

a  -RETRACTABLE  WHEEL 


STANDARD  SEA  LEVEL 


i     _|     A 


0.0  20.0  40.0  WO 


•0.0  100.0  1200 

AIRSPEED  (KNOTS) 


1*0.0       tec.o       iso.o      200  o 
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The  user  might  well  want  to  know  how  much  additional 
velocity  could  be  attained  by  using  the  retractable  type 
gear  as  opposed  to  the  fixed  wheel.   From  the  data,  86  22  hp 
is  required  to  achieve  the  maximum  forward  velocity  using 
the  fixed  wheel  gear,  601  more  horsepower  than  the  helicopter 
with  the  retractable  gear.   If  power  is  the  limiting  factor, 
it  is  a  simple  matter  to  convert  the  601  excess  hp  into 
velocity. 

KEYSTROKES  DISPLAY 

XEQ  (alpha)  PTOT  (alpha)  INPUT  CNT  NO. 

180.19001       (r/s)  EFPA  KNOWN? 

1  (r/s)  EFPA=? 

53.74  (r/s) 

The  printer  computes  the  power  required  from  180  to  190 
knots  in  increments  of  1  hp . 

TOTPL  POWER 


Qy=77465 

EF?fi=v 

*** 

^EL  (KNOTS) 

ESH? 

180 

#** 

8826 

i** 

131 

*$* 

H\]?. 

*** 

'  32 

t** 

8287 

lii 

;0T 

*#* 

Z?M\ 

*** 

184 

*** 

839" 

*** 

1 85 

*** 

8493 

**? 

136 

*** 

8591 

*** 

18? 

*** 

369m 

*** 

188 

*** 

8789 

*** 

189  *** 

8898  *** 

19m  *** 

X991  t** 


109 


From  the  data,  8622  horsepower  is  required  at  approxi- 
mately 186.5  knots.   By  using  the  retractable  gear,  the 
maximum  velocity  has  been  increased  by  over  five  knots. 
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HUGHES  AAH-64  DESIGN  COMPARISON 

The  following  data  is  from  the  AAH-64  helicopter: 

Specification  weight:  17,640  lbs 

Critical  mach  #:  .65 

Fuel  weight:  1600  lbs 

Useful  load:  4351  lbs 

Max.  fwd.  vel.  155  knots 

Main  rotor  diameter:  4  8  ft 

Cdo  main  rotor:  .01 

Cdo  tail  rotor:  .01 

No.  main  rotor  blades:  4 

No.  tail  rotor  blades:  4 

Configuration:  Dirty 

No.  of  engines  2 

No.  of  landing  gear:  3 

Height  of  rotor  above  grd :  12.5  9  ft 

Aspect  ratio,  tr  5.53 

Using  the  above  data  and  the  procedure  of  the  example 
problem,  the  following  power  results  were  attained: 
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SKID 


FIXED    WHEEL 


RETRACTABLE    GEAR 


TOTRL     POWER 


TOTAL     POWER 


TOTfl L     P 0 W E  F 


Qy=15, 735. 3626 
EFP8=31.46 

ypi  t'KMO 


8. 

■kit.it. 

1.898, 

4** 

28. 

444 

1,667. 

*f* 

48. 

*** 

1.288. 

#** 

68. 

4*4 

1,174. 

44* 

88. 

*** 

1-252. 

*** 

188. 

4** 

-  ,476. 

*** 

128. 

444 

1 ,  239 . 

444 

148. 

4*4 

"'  ''•-■  \ 

4*4 

— . 

166. 

*** 

7    QIO 

4*4 

188. 

4*4 

3.893. 

444 

Gy=lb-236.-/ 

EPP=35,91 

VEL  <KH0'S) 
"8HP 


y . 

4*4 

1,958. 

444 

2h, 

444 

i     7  ■?1 

44* 

48. 

4*4 

i     "7  "7  i 

**# 

Cfl 

?4? 

1  .  *??3 

4*4 

88. 

444 

1,389. 

*** 

;HH, 

4*4 

1,553. 

4*4 

1  -Ju 

444 

1       QfiO 

i ,  ?-Jt . 

44* 

i48. 

4** 

2,516. 

4** 

168. 

4*4 

3,265. 

*** 

138, 

4*4 

i.?/'?, 

**s 

GHstfi, 363.17 

cppa=39 , 94 

VEL  <KH0TS> 


3, 

#** 

1,977. 

4*4 

28. 

*** 

1,749. 

#** 

48. 

*¥* 

1,345. 

4*4 

68. 

*** 

!  221  „ 

4*3; 

88. 

44* 

1,287, 

4x4 

186, 

444 

1,561, 

444 

128, 

4*4 

1,855, 

444 

148.        *** 

;.    7rfi  4*4 


168. 

4*i 

,625, 

*** 

188. 

4*4 

.875. 

4*4 
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The  Hughes  AAH-64  utilizes  a  fixed  wheel  type  landing 
gear.   The  airspeed  vs.  power  graph  depicts  the  actual  power 
requirements  of  the  AAH-64  at  various  airspeeds  and  weights. 


80  120 

TRUE  AIRSPEED-  KNOTS 


160  200 

81H029-15 
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By  approximating  the  computed  gross  weight  line  for  the 
fixed  wheel  gear  data  (16,236.47  lbs) ,  a  comparison  between 

the  actual  and  computed  power  requirements  can  be  made.   The 
following  table  shows  this  comparison  and  the  percent  error. 

HP  COMPUTED  |%  ERROR | 

1958  15.6 

1731  13.5 

1334  11.1 

1223  0.2 

1309  7.3 

1553  12.9 

1952  16.2 

2516  9.4 

The  average  percent  error  is  10.15 


VEL 

HP  ACTUAL 

0 

2320 

20 

2000 

40 

1500 

60 

1220 

80 

1220 

100 

1375 

120 

1680 

140 

2300 
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COMPARISON  OF  ADV.  SYST.  COMPUTER  PROGRAM 

One  of  the  primary  goals  of  this  project  is  to  develop 
programs  for  the  HP-41  which  output  values  to  within  10 
percent  of  the  Army  Aviation  Research  and  Development 
Command's  Advanced  System's  Computer  Program.   The  following 
data  was  inputted  into  both  programs . 

Radius  of  main  rotor  blade=  27  ft 

Critical  mach  number=  .65 

Maximum  fwd.  velocity=  16  0  knots 

Specification  weight=  18000  lbs 

No.  of  main  rotor  blades=  4 

Coefficient  of  drag  at  0  lift-  .01 

Height  of  rotor  above  ground=  14.4  ft 

Fuel  weight=  4000  lbs 

Useful  load=  3750  lbs 

Tail  rotor  aspect  ratio=  8 . 0 

Coeff  of  drag  at  0  lift  (tr)=  .0145 

No.  of  tail  rotor  blades=  4 

Conf iguration=  Clean 

No.  of  engines=  2 

No.  of  landing  gear=  3 
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Using   the    PTOT    (printer)    program,    the    following  data 
was    outputted : 


SKID 


FIXED   WHEEL 


RETRACTABLE    GEAR 


OTSL     POWER 


TOTflL     P 0 U E  R 


TOTRL     POWER 


Gn=16744,9881 

VEL  <KH0TS> 
ESHP 


Gw=i71?8.2; 
EFPR=24.65 

VEL  <KH0TS: 
FSHF 


Qy=i712(vthr 
prpq=iH.9S 

fh«p 


9 

*** 

m\ 

#** 

28 

*** 

\m 

*** 

48 

#** 

1294 

*** 

68 

*** 

1187 

*** 

88 

*#* 

1173 

*** 

188 

*** 

1356 

i:t5 

128 

iji 

1647 

;ii 

148 

*** 

284? 

4*»: 

168 

*** 

2576 

?** 

8 

*** 

1923 

*** 

29 

i** 

1666 

*** 

48 

±** 

1  ?5  i 

Stars 

68 

*** 

1 149 

±*± 

88 

♦♦♦ 

*** 

188 

*** 

*** 

128 

*** 

•:  j  A  i 

*** 

148 

**# 

•-.(  r.7 

***• 

168 

*** 

d  1  f  -i 

±$:i 

8 

±7.3 

941 

*** 

29 

?>::». 

DOC 

**•'* 

48 

±si 

•iCO 

*** 

68 

i*y. 

141 

*** 

88 

**:* 

jgjj 

**£ 

188 

*$* 

"7  A  i" 

■J  "TO 

*±± 

129 

*** 

618 

**$ 

148 

*** 

*76 

*.■** 

168 

*** 

if  j .;; 

±sx 
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A  comparison  of   the  Advanced   System's   output   reveals   the 
following: 

RET.K    GEAR 

HP41  ADSY  |%ER| 

1941  2085  6.91 

1682  1865  9.81 

1258  1406  10.53 

1141  1193  4.36 

1188  1166  1.89 

1348  1269  6.23 

1610  1498  7.48 

1976  1956  1.02 

2453  2628  6.66 


VEL 

SKID 

] 

?IX   WHEEL 

HP41 

AD  SY 

|%er| 

HP41 

ADSY 

|%er| 

0 

1861 

1998 

6.86 

1923 

2065 

6.88 

20 

1608 

1781 

9.71 

1666 

1846 

9.75 

40 

1204 

1344 

10.42 

1251 

1396 

10.39 

60 

1107 

1152 

3.91 

1149 

1198 

4.09 

80 

1173 

1143 

2.62 

1221 

1194 

2.26 

100 

1356 

1264 

7.28 

1421 

1330 

6.84 

120 

1647 

1508 

9.22 

1741 

1621 

7.40 

140 

2049 

1984 

3.28 

2187 

2147 

1.86 

160 

2576 

2688 

4.17 

2772 

2780 

.28 

Skid  avg  %  error=  6.39 
Fixed  wheel  avg  %  error=  5.53 
Retr  gear  avg  %  error=     6.10 

It  is  readily  apparent  that  the  goal  of  10%  accuracy  has 
been  exceeded.  These  programs  are  rapidly  executed,  inexpen- 
sive to  run,  and  sacrifice  a  very  small  percentage  of  accuracy, 
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The  following  printouts  depict  the  Advanced  System's 
Branch  computer  output  for  Skid,  Fixed  Wheel,  and  Retractable 
Type  landing  gears. 


UTIL  IT  v    3E5I  r:\  j    SKID     :L  I 
If- ST     C*Sc     r'.'x     Mn: 


IHTI'JG 


UvtSS 


fo..  =  ,<   ne;ui-cj   Vrriu:   n^;^  :?c  =  g 

G'CSS     *riOHT    =       1A7A5.L1                ).FT/    5li.:.  =  G          V-C3=l'.  2.?-.  T          SHAFT/WING    ,.\'G 

20.                   *0.                   30,                   3  0 

LI")?.           7 6 "? .          5  4o .           ^  i  ^ 

.           ICO. 

23* 

120, 
?  5  » 

;  4  c 

1 

21". 

'ir-VN-J          h.  7 
H  "  °  -  "                   0 

j  c  i  .          3  c  S  .           3  7/.           A  0 1 
-10.             13.             73.           171 

*»29 
311 

Ac  3 
A96 

70  3 

,          ~*i  7, 

l^'P^'JP                  0 

0 .           : .           j .           c 

3.                0.                1.                a 
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APPENDIX  C 
COMPUTER  GRAPHICS  PRINTOUT 

MYPLOT  AND  POWERPLO  COMPUTER  PRINTOUTS 

The  following  program  graphs  the  power  data  for  a  skid,  fixed 

wheel,  and  retractable  geared  configured  helicopter.   The  attached 

graph  is  an  actual  plot  of  the  example  cargo  helicopter. 


HELICOPTER  POWER  REQUIREMENTS 

SHAFT  HORSEPOWER  VS.  AIRSPEED 


STANDARD  SEA  LEVEL 


POWER  CURVES 
a -SKID 

o -FIXED  WHEEL 
ft  -RETRACTABLE  WHEEL 


o.o        20.0 


400  10.0  100.0  1200 

AIRSPEED  (KNOTS) 


140.0  1«0.0  1S0.0         2000 
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FILE;  MYPLOT         FORTRAN       Al-      NAVAL    POSTGRAOJATE    SCHOOL 

C  PROGRAM   TO   PLOT    POrtER     REQUIREMENTS    VS.    AIRSPEED    FOR    A    HELICOPTER 

C  WITH     SKlOt    =  IXED    WHEEL,     AND    RETRACTABLE    LANDINU    GEAR    USING    The 

C  TEXTRONIX    ELECTROSTATIC    PLOTTER   AND    DISSPLA    SOFTWARE. 


REAL       SKID,SKIDS,FIX,FIXED,RETR,RETRA 

DIMENSION    SKID(10),SKIDS(  10),FIX(  101 1  FIXED(IO)  ,*=TR(  10)  .RETRAl  10) 


DATA     SKID/0.,  2  0.  ,40.  ,  6  0.  ,8  0.  ,100.  ,120.  ,140.,  160.  ,  180.  / 

OATA     SK I  DS/*247,  3  72 1,2  843,  2  633,2  8 17, 3  2  33,  401  8, 50  3  9,0  3  7*,  80  59/ 

DATA     FIX/0. ,  20.,  40., 6  0.  ,30.,  10  0.,  120.  ,140.  ,160.  ,  130./ 

DATA     FIXED/4376,3  843,2  94  3,2  727  ,2918,3419,4215,5324,6779,3622/ 

DATA     RETR/O. ,20. *  40. , 60.  ,8  0., 100. 1 123 • ,140.t 160. , 180. / 

DATA     RETR  A/ 4^13,3  876,  2  96  3,2  724  ,28  8  0,3  323  ,40*7  ,50  49  ,6  3  6  2,  3  0  21/ 
C   CALL    TEKTRONIX   618    PLOTTER 

CALL     TEK618 
C    IF   PLOT    EXCEEDS    SCREEN    SIZE,     SCALE    DOWN   TO   FIT   SCREEN 

CALL     HWSCAU 'SCREEN') 
C    SET   PAGE     SIZE 

CALL     PAGE  (11.,  8.5) 
C    OEFINE    AREA    OF   PLOT    ON    PAGE 

CALL     AREA2DJ     8.0,5.5) 
C    FRAME    THE    SUBPLOT    AREA 

CALL     FRAME 
C    SET    THE    TYPE    FOMT    DESIRED 

CALL     SWISSL 
C    SET    THICKNESS    GF    CURVE    (IN    INCHES) 

CALL    THKCRVl.015) 
C   DEFINE    NAME    OF    X    AXIS 

CALL     XNAME( 'AIRSPEED    (  KNOTS)  S«  ,100  ) 
C    DEFINE    NAME   OF    i    AXIS 

CALL     YNAMEf  SHAFT    hORSEP OWSRS'  ,100 ) 
C    DEFINE    HEADING    OF    PLOT 

CALL    HEADINi 'HELICOPTER    POWER    REQUIREMENTS*1  r-100  ,2.3,  31 

CALL    HEADINi  '  SHAFT    HORSEPOWER    VS.     AIRSPEEDS' , -103  ,  i.  5  ,  3) 

CALL     HEAD  INC  STANDARD     SEA    L  =  VE LS'  , -13 0 ,i .  0  ,3 ) 
C    SET    X    ORIGIN,    X    STEP,     X    MAXIMUM,    r    ORIGH,    Y    STEP,    i    MAXIMUM 

CALL     GRAF  (0.0,2  0.  ,200.  ,2  50  C.  ,1000.  ,67  00.  ) 

CALL     RASPLN    (1.5) 

CALL    GRID(l.l) 
C  CALL     CURVE(TPTSX,  TPTSY,  ,0) 

CALL    CURVEISKID, SKIDS ,9,1 ) 

CALL     CURVE(FIX,FI  XED,  9,1  ) 

CALL    CURVE(RETR,RETRA  ,9,  1) 

CALL     LINE  SC  SKIDS'  ,IPAK1  ,1  ) 

CALL     LINESCFIXED    WHEELS  *  tIPAKlf2 1 

CALL    LINES*'  RETRACTABLE    WHEELS  •  ,1  PAK1  ,  3) 

CALL    KYLEGNi  'POWER    CURVES', 12) 
'      CALL     LEGENDdPAKl  ,3,6.6,  5.5) 

CALL     ENDPL(O) 

CALL     OONEPL 

STOP 

END 
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The  following  program  plots  the  data  from  the  PTOT  (Full 
Display)  program. 


FILE:.  POWERPLO    FORTRAN       Al       NAVAL    POSTGRADUATE    SCHOOL 

C  PROGRAM    TO   PLOT    THE    PARASITE,     PROFILE,    INDUCED,     AND    TOTAL 

C  POWER    REQUIRED    FOR    A    HELICCPTER   WITH    SKID,    FIXED    WHEEL,    OR 

C  RETRACTABLE    LANDING    GEAR. 


C 


REAL        PAR,PARA,PRO,PROS,INC,INCU,TOT,TOTS 


DIMENSION    PAR(     l,PARA(    )  ,  PRJ(      ),PROS(      ),IND(      ),ISDU(     ),T3T<    ) 
1T0TS(     * 

DATA     PAR/0.,20.,40.,6  0.,3  0.,10  0.,  120.  ,140.  f  160./ 

OATA     PARA/  / 

DATA     PRO/ 0.,  20.,  40.,  6  0.,  8  0.,  10  0.  ,120.  ,140.  ,16  0./ 

DATA     FRCS/  / 

DATA     IND/0.,20.  ,4  0.  ,6  0. ,  8  0.  ,10  0.,  120.  ,140.  ,160./ 

DATA     INDU/  / 

DATA     TCT/0.  ,20.  ,4  0.  ,60.  ,  80.  ,10  0.  ,  120.  ,  140.  ,160./ 

DATA     TOTS/ 
C    CALL    TEKTRONIX   618    PLOTTER 

CALL     TEK618 
C    IF   PLOT    EXCEEDS    SCREEN    SIZE,     SCALE    D3WN   TO   FIT   SCREEN 

CALL    HWSCALl'SCREEN*) 
C    SET   PAGE    SIZE 

CALL     PAGE(11.,3.5  ) 
C    DEFINE    AREA    OF    PLOT    ON    PAGE 

CALL     AREA2D(     3.0,5.51 
C    FRAME    THE    SU3FL0T    AREA 

CALL     FRAME 
C    SET    THE    TYPE    FOMT    DESIRED 

CALL     SWISSL 
C    SET    THICKNESS    OF    3URVE    (IN    INCHES) 

CALL     THKCRV(.315) 
C    OEFINE    NAME    OF    X    AXIS 

CALL     XNAMEI' AIRSPEED    <  KNOTS)  *•  ,100  ) 
C    OEFINE    NAME    OF    1    AXIS 

CALL     YNAMEC  SHAFT    HORSEPOWER*'  ,100  ) 
C    DEFINE    HEADING   3F    PLOT 

CALL     HEAOINC  HELICOPTER    POWER    RE3U  IREMENTSS' , -130 , 1. 5, 3) 

CALL     HEAOIN( 'SHAFT    HORSEPOWER     VS.     AIRSPE  EDS' , -130  , 1.  0,  3) 

CALL     FEADINi 'SKID    LANDING    GEAR  *• ,  -  100  , 1.  0  , 3) 
C  CALL    HEADIN( 'FIXED    WHEEL**  t-100tl  .0f3  ) 

C  CALL     hEADINJ  • RETR ACTA 3LE     GEAR*  ',- 100,  1.0  ,3) 

C    SET    X    ORIGIN,     X    STEP,     X    MAXIMUM,    Y    ORIGIN,    Y    STEP,    Y    MAXIMUM 

CALL     GRAF (0.0,20. ,1 30 . ,0 . ,500.  ,20  00. ) 

CALL     RASPLN    (1.5) 

CALL    GRID(lfl) 
C  CALL    CURVEdPTSX.TPTSY,  ,0) 

CALL     CURVE(PAR, PARA, 9,1) 

CALL     CURVE(PRQ,PRQS,9 ,1) 

CALL     CURVEdND, INDU, 9,1) 

CALL     CURVE(T0T,T0TS,9 ,1) 

CALL     LINES( 'PARASITES'  , I PAK1,1  ) 

CALL     LINESCPROFILES'  ,IPAK1,2) 

CALL    LINESC  IMDJCEDS'  ,I?AK1,3) 

CALL     LINESJ  •  T3TALS'  ,IPAK1  ,4) 

CALL    MYLEGNCPOWER    CURVES  '  ,12) 

CALL     LEGEND( IPAK1 ,4,6.6,6.0) 

CALL     ENDPL(O) 

CALL     CONEPL 

STOP 

END 
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